





AMSTRAD 

aplicaciones para 
la casa y los 
pequeños negocios 




Jaime Minguella 


AMSTRAD 

aplicaciones para 
la casa y los 
pequeños negocios 


EDITORIAL NORAY, S. A. 
San Gervasio de Cassolas, 79 
Tal. 211 1146 - 08022 Barcelona 



© Editorial Noray, Barcelona (España), 1986 

Primera edición, 1986 

Depósito Legal: B. 12.343-1986 

ISBN: 84-7486-060-1 

Número de edición de E. N., 98 

Printed in Spain - Impreso en España 

I.A.G. Grafink S.A.-Ripollet (Barcelona) 



Indice 


Introducción 7 

Estructura general de los programas 9 
Barras televisión 11 
Gastos combustible 13 
El iva fácil 14 
Día de la semana 17 
Calendarios 18 
Agenda mensual 22 
Agenda telefónica 26 
Bankhouse 30 
Gráficos 35 
Generador de letras 41 
Órgano 45 
Peso ideal 50 
Millones a gogó 51 
Lotería primitiva 53 
Volcador de pantallas 55 




Una de las preguntas que el usuario de un microordenador suele 
plantearse con más frecuencia en el instante en que tiene la má¬ 
quina desembalada y montada y lista para recibir órdenes es; 
«Y ahora, ¿para qué utilizo yo este aparato?»... 

Una de las soluciones es adquirir programas con software co¬ 
mercial, pero en algunas ocasiones los programas existentes no 
se ajustan plenamente a nuestras necesidades o bien son dema¬ 
siado complejos para los objetivos que deseamos cubrir. Por 
otra parte, al usuario le gusta escribir sus propios programas y 
desea que le sean de alguna utilidad. 

Este libro está orientado a dicho tipo de usuario. A lo largo de 
las páginas, el lector podrá encontrar quince programas, todos 
ellos de utilidad para algún propósito determinado. Para ello se 
han aprovechado ampliamente las posibilidades cromáticas y 
gráficas de los ordenadores Amstrad, poseedores de uno de los 
Basles más potentes del mercado. 

Tal como podrá observar el lector, estos programas dan una 
presentación en pantalla impecable, explotando al máximo las 
características anteriormente citadas. 

Esta circunstancia hace que algunos de los programas sean algo 
más largos de lo que pueda parecer necesario, considerando el 
autor, sin embargo, que este incremento de longitud es válido a 
la vista de los resultados obtenidos. 

Asimismo, cabe remarcar que otro de los aspectos que el 
usuario podrá observar es el hecho de que todas las entradas de 
datos de los programas están perfectamente centradas en la 
pantalla y no admiten los valores que estén fuera del rango nor¬ 
mal, con el fin de evitar errores posteriores en los cálculos que 
dicho programa realice. 

Todas estas características que alargan la extensión de los 
programas obedecen a un objetivo común: demostrar que en 
programas sencillos también se puede obtener una presentación 
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óptima y una funcionalidad máxima, consiguiéndose un conjun¬ 
to de gran calidad. 

Otro de los objetivos del presente libro es conseguir que el 
usuario que introduzca los programas en su ordenador pueda 
aprender mientras lo hace; podiendo, en un segundo paso, mo¬ 
dificar los programas con el fin de adecuarlos a sus necesidades 
específicas. 

El abanico de utilidades de estos programas es amplio, concer¬ 
niendo a todos los miembros de la familia. No habrá ningún 
defraudado. 
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Estructura general 
de los programas 


Todos los programas de este libro tienen unas características 
comunes, tales como: 

— Pretender ser programas de utilidad práctica. 

— Conseguir una presentación en pantalla impecable en el 
centrado de textos, combinaciones de color y limpia entrada de 
datos. 

— Poseer una estructura de programación parecida. 

Con respecto al último punto, el lector podrá observar estas 
características comunes en los programas: 

Compresión de las líneas. Se podrá observar que las líneas 
de programas son largas, con múltiples sentencias en cada una. 
Esto puede producir una dificultad inicial en la lectura y 
comprensión del programa, pero obedece a varios criterios prác¬ 
ticos, como son la economía de memoria, la mayor rapidez del 
programa y la menor extensión de los listados. En programas 
como las agendas, etc., los dos primeros criterios son funda¬ 
mentales debido a que se necesitan grandes cantidades de me¬ 
moria para almacenar los datos, y cuando se deben realizar bús¬ 
quedas de datos, la rapidez es importantísima. 

Estructura modular. Todos los programas están compuestos 
por varios bloques relacionados entre sí, es decir, un conjunto 
de subrutinas encadenadas por un núcleo principal. 

Entre estas subrutinas hay algunas comunes a todos los progra¬ 
mas, como son: 

Un bloque de inicialización, que ocupa la primera decena de 
líneas. En él suele existir la fijación de los colores iniciales, y en 
todos aquellos programas en los que se introduzca texto, la ge- 
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neración de la letra 'ñ' y su posicionamiento en la tecla de la 
barra inversa. 

Un segundo bloque, en el que existe la presentación del menú 
de opciones, la detección de la opción deseada y la comproba¬ 
ción de que esta selección es válida, así como el desvío a una 
subrutina determinada según la opción elegida y el reenvío al 
menú principal una vez terminada dicha opción. 

Un conjunto de bloques en función de las utilidades del progra¬ 
ma, en los que suele haber una subrutina de lectura de datos de 
cinta-disco, otra de grabación de datos, otra de impresión en 
pantalla, etc... 

Otro conjunto de subrutinas varias, que son utilizadas repetida¬ 
mente en el programa. Entre ellas cabe citar la rutina que está 
en todos los programas, empezando en la línea 20000, y que sir¬ 
ve para enmarcar todas las presentaciones en la pantalla. 

Finalmente debe hacerse una aclaración. En todos los progra¬ 
mas aparece en alguna línea o en varias la sentencia CALL 
&BB06. Para las personas que no conozcan código de máquina 
explicaremos que esto es una llamada al firmware del Amstrad, 
y más concretamente a la rutina que empieza en la posición 
&BB06, la cual se encarga de retener el programa en curso has¬ 
ta que se pulse una tecla cualquiera, evitándose así una línea del 
tipo: 

1000 A$=INKEY$:IF A$=”” THEN 1000 

Confiamos que esta estructura modular permitirá al usuario que 
lo desee modificar el programa fácilmente con el fin de ade¬ 
cuarlo a sus necesidades. 


Nota aclaratoria: La Ñ en los listados se obtiene pulsando la barra inversa apare¬ 
ciendo la ñ al ejecutar el programa. 
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Barras televisión 


Este programa está orientado sobre todo a aquellos usuarios 
que empleen un televisor normal como pantalla de su Amstrad y 
también a los que empleen un monitor de fósforo verde, con el 
fin de centrar la escala de grises. 

El programa genera una serie de barras verticales multicolores 
en las primeras pantallas, y una serie de rectángulos también 
multicolores en las siguientes. Esto permite ajustar los controles 
de color, brillo y contraste, con el fin de conseguir una visualiza- 
ción óptima del color o, en su caso, de la escala de grises. Con 
los monitores de color, el presente programa también permite 
ajustar el brillo a su punto óptimo. 

Para pasar de una pantalla a la siguiente, simplemente debe pul¬ 
sar una tecla. 


10 REM »»* BARRAS TELEVISION *»» 

20 REM 

30 REM 

UO REM 

50 REM 

60 REM 

70 BOEDER 0 

80 FOR I- 1 TO 7 

90 READ A:INK 5-1.A 

100 NEXT 

lio J-l:MODE 0 

120 FOR I-l TO 7 

130 WINDOW#!.J.J-3.1.25 

lilO J*J*3 

150 PAPER #1.5-I:CLS#I 

160 NEXT 

170 CALL 8BB06 

180 RESTORE 3^0:FOR i-0 TO 15:READ a:INK i.a:NEXT 
190 MODE 0:BOEDER 22 
200 ch-ia3:GOSUB 280 

210 RESTORE 350:FOR i>0 TO 15:READ a:INK 1.a:NEXT:CALL 8BB06 

220 MODE O:ch-233:GOSUB 280 :BOEDER 15 

230 FOR 1- 1 TO 25 :LOCATE 4.1 

240 FOR u-1 TO 15:PEN p:p>p-l:IF p=l6 TREN p=0 

250 PRINT CHR$(oh)::NEXT:NEXT :CALL &BB06 
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Barras televisión 


260 BORDER ll:FOR i = l TO 20:FOR u= 1 TO 25: LOCATE i.u:FEN RNl*it*l 

:PRINT CHR$(ch);:NEXT:NEXT:CALL aBB06 

270 CALL &BC02:MODE 1:PEN 1:END 

280 FOR 1= 1 TO 25 

290 LOCATE ft.l 

300 FOR u=l TO 15:PEN u:PRINT CHR${oh)::NEXT 
310 NEXT 

320 CALL &BB06:RETURN 
330 DATA 26,211,20.18,8,6,2 

340 DATA 0.3.4,5.7.9.10,11,12,13.14.15,16.17.19.21 
350 DATA 1.26,25.24.23.22.21.20,19.18.17.16.15.14.13.12 
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Gastos combustible 


Se acabó el descontrol en el gasto de gasolina. Ya no tiene ex¬ 
cusas. Este programa acude en su ayuda. 

El funcionamiento es el siguiente; Debe usted llenar el depósito 
y apuntarse el kilometraje. Cuando vuelva a llenarlo, tome nota 
del nuevo kilometraje y de los litros consumidos. Introduzca los 
datos en este programa... y del resto se ocupará su Amstrad. 
En la pantalla aparecerá el consumo de litros a los cien kiló¬ 
metros, el coste por kilómetro y los kilómetros recorridos con 
un litro. 

Cuando usted vea que el consumo aumenta excesivamente, se¬ 
rá conveniente que piense en una puesta a punto. Todo sea por 
la economía... 


1 REM *»* GASTOS COMBUSTIBLE *** 

2 REM 

3 REM 
tt REM 

5 REM 

6 REM 

10 MODE 1:INK 0.0:BORDER il:C»3:GOSUB 20000 
20 PEN 1:LOCATE 6.10:INPUT "Km en el anterior llenado";kmv 
30 LOCATE Ó.IÜIINPUT "Km en este llenado ":kma 
ao IF kma<-kmv THEN RUN 

50 PEN 2:LOCATE 6.l8:INPUT "litros de combustible ":lt 
60 PEN 3:LOCATE 6.21:INPUT "precio del litro "¡pr 
70 consumo»lt»100/(kma-krav) 

80 coste=consumo»pr/100 
90 rec-lOO/consumo 

100 CLS:c-3:GOSUB 20000:PEN 1:LOCATE 6.8: PRINT"CONSUMO 
litros/100 km. 

lio LOCATE 6.12:PRINT"COSTE pts /KM":LOCATE 6,l6:PRIN 

T"KM/litro " 

120 PEN 2:LOCATE 15.8:PRINT INT(consumo»100)/100 
130 LOCATE 15.12:PRINT INT (coste*100)/100 
lao LOCATE 15.16:PRINT INT (rec*100)/100 
145 LOCATE 15.24:PEN 3:PRINT"PULSE UNA TECLA" 

150 CALL &BB06:RUN 

20000 PLOT 0.0:DRAWR 639.0,c:DRAWR 0.399: DRAWR -639.0:DRAWR 0.-3 
99:RETURN 
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El IVA fácil 


«El que esté libre de IVA, que tire el primer recibo...» 

Esta frase de sentido bíblico es muy vigente en nuestros días. 
Con la entrada en la CEE ha llegado el IVA, ese impuesto que 
asusta a muchos y no deja dormir a otros. 

No haremos aquí un tratado sobre el IVA, entre otras cosas por 
ser un tema tan comentado y discutido, pero sí que le brinda¬ 
mos al amable lector la oportunidad de controlar dicho impuesto 
por medio del presente programa. 

En él, y mediante la opción 2, se pueden introducir los IVAs 
cobrados y los pagados. Como se sabe, la diferencia entre am¬ 
bos debe ser ingresada en Hacienda. El programa se encarga de 
ir acumulando los valores ingresados y cobrados, y da en todo 
momento, mediante la opción 3, el total a ingresar. 

Cuando quiera guardar los resultados, seleccione la última op¬ 
ción, para archivar en cinta o disco el fichero con los datos. 
Incluso puede tener varios ficheros con nombres diferentes si 
desarrolla varias actividades. 

Cuando vuelva a utilizar el programa, no olvide leer los datos 
antiguos con la primera opción antes de hacer cualquier opera¬ 
ción, y no olvide, asimismo, gravar los nuevos datos para ac¬ 
tualizar el fichero. 

Esperamos que con esta pequeña ayuda vIVA mejor. 


1 REM ****** el iva FACIL ****** 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 RÉM 

9 SYMBOL AFTER 92:SYMBOL 92.124.0.198.230.246.222.206.0 

10 MODE 1:INK 0.0:BORDER 12:PEN 1:SPEED WRITE 1: ' Inlciallzac 

Ion 
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El iva fácil 


20 c=3:G0SUB 20000:LOCATE 6.a:PRINT"ELIJA OPCION: 

25 REM MENU PRINCIPAL 

30 PEN 2:LOCATE 8.7:PRINT"1) LEER DATOS GRABADOS 
ao LOCATE 8.11:PRINT"2) INTRODUCIR DATOS" 

50 LOCATE 8.15:PRINT"3) CONSULTA DE DATOS" 

60 LOCATE 8.19:PRINT"a) GRABAR LOS DATOS" 

70 PEN 3:LOCATE 6,22:PRINT"pulse numero adecuado" 

80 at=INKEYS:IF a»-"" THEN 80 
85 REM OPCION DESEADA 

90 A=VAL (A$):IF A< 1 OR A>a THEN SOUND 1.RND*30+10.10:GOTO 80 
100 REM DESVIO SEGUN OPCION 
UQ ON A GOTO 1000,2000,3000.5000 

1000 LOA-0:GOSUB 10000:GOSUB 11000:LOA-1:PAGO-VAL(PAGOS):COBRO-VA 
L(COBROS):GOTO 10 

2000 CLS:C-2:GOSUB 20000: LOCATE 3. 13: PEN 1: PRINT"(5UIERE INTRODUCI 
R PAGO O COBRO (P/C)" 

2010 AS=INKEYS:IF AS-"" THEN 2010 ELSE OPS-UPPERS(AS):IF OPS<>"P" 
AND OPS<>"C" THEN 2010 

2020 IF OPS-"P" THEN FS-"PAGADA:" ELSE FS-"COBRADA:" 

2030 LOCATE 7.20:PEN 2-(OPS-"P"):PRINT"CANTIDAD ":FS 
20ao LOCATE 25.20:INPUT "".CS 

2060 IF OPS-"P" THEN PAGO-PAGO+VAL(CS) ELSE COBRO=COBRO<-VAL(CS) 
2070 GOTO 10 

3000 CLS:COBROS-STRS(COBRO):PAGOS-STRS(PAQO): CLS:GOSUB 20000:LOC 
ATE 6,13:PEN 1:PR1NT"0UIERE IMPRIMIRLO EN PAPEL (S/N)" 

3010 AS-INKEYS:IF AS-"" THEN 3010 ELSE IMPS-UPPERS(AS):IF IMPSO" 
S" AND IMPS<>"N" THEN 3010 

3020 CLS:PEN 1: PRINT:PRINT: PRINT:PRINT:PRINT#CAD,TAB(5):"IVA COBR 
ADO ":TAB (38-LEN (COBROS)):COBROS 

3030 PRINTSCAU:PRINT#CAU:PRINTSCAU:PEN 2:PRINT#CAU,TAB(5):"IVA PA 
GADO":TAB (38-LEN (PAGOS)):PAGOS 

3035 DIF-COBRO-PAGO:IF DIF<-0 THEN DIFS-"NO PROCEDE" ELSE DIFS-ST 
RS(DIF) 

30ao PRINTSCAU: PRINT#CAU: PRINTdfCAU: PEN 3: PRINT#CAU. TAB( 5): "IVA PA 
RA HACIENDA":TAB (38-LEN (DIFS)):DIFS 
3050 IF IMPS-"N" THEN CALL aBB 06 :GOTO 10 

3060 IMPS-"N":CAU- 8 :LOCATE 3.2Í:PEN 1:PRINT"PREPARE PAPEL Y PULSE 
UNA TECLA":CALL aBB 06 
3070 GOTO 3020 
5000 REM GRABACION DE DATOS 

5010 COBROS-STRS(COBRO):PAGOS-STRS(PAGO):IF NOMS-"" THEN GOSUB 10 
000 

5020 GOSUB 12000:GOTO 10 

6000 LOCATE ll,22:PRINT"flchero desconocido":FOR u- 1 TO 2000:NEX 
T:RUN 10 

10000 REM NOMBRE DEL FICHERO 
10010 CLS:C-3:QOSUB 20000 

10020 PEN 1:LOCATE 5.13:PRINT"NOMBRE DEL FICHERO?"::PEN 2:PRINT" 


10030 LOCATE 25,13:INPUT "". NOS:IF LEN {NOS)>8 OR NOS-"" THEN PR 

INT CHRS(7):GOTO 10020 

lOOao NOMS-"!"+NOS:NOMS-LEFTSÍNOMS,8) 

10050 RETURN 

11000 REM LECTURA DE DATOS 

11003 ' ON ERROR GOTO 6000 ' solo para amstrads de disco 
11005 IF LOA-1 THEN RETURN ' DATOS YA LEIDOS 

11010 CLS:C-2:GOSUB 20000:PEN 1:LOCATE 3.13:PRINT"PULSE PLAY EN E 
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El iva fácil 


L CASSETTE Y UNA TECLA":CALL SBBOó ' sobra en Amstrad de disco 
11020 OPENIN nora$:INPUT #9.COBROt:INPUT #9.PAQOt:CLOSEIN:LOA-l:RE 
TURN 

12000 REM GRABACION DE DATOS 

12010 CLS:C-2:GOSUB 20000:PEM l:LOCATE 6.11:PRIMT"PULSE PLAY y RE 
C EN EL CASSETTE LOCATE ll.ltttPRINT" Y UNA TECLA DESPUES":CALL 
&BB06:' sobra en Amstrad de disco 
12015 NOM$-LEFTS(NOM*.8) 

12020 OPENOUT nom»: A$-STR» (N): PRINT)lf9. COBROt: PRINT#9. PAGOt: CLOSEO 
UT:LOA»l:RETURN 

20000 REM *»• subrutlna de enmarcado *♦* 

20010 ORIGIN 0.0 
20020 DRAWR 639. O.c 
20030 DRAWR 0.399 
200tt0 DRAWR -639.0 
20050 DRAWR 0.-399 
20060 RETURN 


IVA COBRADO 


IVA PAGADO 


IVA PARA HACIENDA 


/15000 


25000 


20000 
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Día de la semana 


¿Qué día de la semana será el 6 de enero de 1997? ¿Y el 23 de 
julio? ¿Y el 29 de octubre?... 

No más dudas. Con el presente programa podrá saber qué díó 
de la semana fue, es o será una determinada fecha. 

La única limitación del programa es que no se pueden introducir 
fechas inferiores al año 1752, en el cual se implantó el calenda¬ 
rio actual, existiendo una diferencia de unos diez días en fech? 
anteriores a las citadas. 


10 REM *»** DIA DE LA SEMANA **** 

20 REM 
30 REM 
ilO REM 
50 REM 
60 REM 

70 BOEDER U: INK 1.2tt:INK 0.0:INK 2.20:INK 3.6:PAPER 0:PEN l:MODE 
1 

80 c.3:GOSUB 20000:LOCATE 6,8:INPUT "dia ";d:IF d>31 OR d<l THEN 
80 

90 LOCATE 6.12:INPUT "mes ":ra:IF m>12 OR m<l THEN 90 

100 LOCATE 7.15:PRINT"_": LOCATE 6,l6:INPUT "ano (min 1752) "¡a:I 

F a<1752 THEN 100 

160 mm-m: dd-d: aa«a: nun-mm-2: IF tiun<l THEN mm=mm+12: aa=aa-l 


170 y$-STR$(aa) 

180 oc.INT(aa/lD0):yy-VAL(RIGHT$(y$.2)):aa-INT(2.6*mm-0.19)+dd+yy 
■►INT(yy/a)-INT<oo/¡l)-cc*2:dla.INT((aa/7-INT(aa/7) )»7+0. 1 ) 

190 IF dia-0 THEN dia-? 

200 CLS:c-3:GOSUB 20000:LOCATE 6.10:PEN l:PRINT"el día "::PEN 2:P 
RINT d:"-":m:"-";a::PEN 1:PRINT" es:" 

210 RESTORE 250 :FOR 1- 1 TO dia:READ d$:NEXT 
220 LOCATE 18.18:PEN 3:PRINT d$ 

230 CALL &BB06 
2ao RUN 

250 DATA lunes,martes.miércoles.Jueves,viernes,sabado,domingo 
20000 PLOT 0.0:DRAWR 639.0.o:DRAWR 0.399: DRAWR -639.0:DRAWR 0,-3 
99:RETURN 
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Calendarios 


Hemos visto cómo saber el día de la semana concreto, pero en 
ocasiones nos puede interesar conocer el calendario de un mes 
o de un año completo. 

Para eso hemos desarrollado el programa CALENDARIOS. Sólo 
tiene que seleccionar la opción deseada, calendario de un mes o 
año, e introducir la fecha deseada. 

La única limitación es la que ya se ha señalado en el programa 
DÍA DE LA SEMANA, es decir, no se permiten fechas por de¬ 
bajo de 1752. 

El calendario puede ser impreso en papel. Si lo quiere en tama¬ 
ño reducido, puede añadir la siguiente línea de programa: 

7 PRINT #8.CHR$(15) 

Si la omite, la impresión será en tamaño normal. 


1 REM ***** CALENDARIOS •••••• 

2 REM 

3 REK 
a REM 

5 REM 

6 REM 

9 SYMBOL 21l5. Zia. 21Ü. 198.2Ü6.222.206.198. 0 

10 BOEDER Ü: INK 1.24:INK 0.0:INK 2.20:INK 3.6:PAPER 0:PEN l:MODE 
1 

50 REM MENU PRINCIPAL 
60 c=3:GOSUB 20000 

70 LOCATE 6.6:PEN 1:PRINT"ELIJA OPCION:" 

80 LOCATE 9.11:PEN 2:PRINT"!) CALENDARIO MENSUAL" 

90 LOCATE 9.15:PRINT"2) CALENDARIO ANUAL 
95 LOCATE 6.20:PEN 1:PRINT"PULSE NUMERO ADECUADO 
97 AS=INKEY$:IF A$="" THEN 97 

100 IF A*-"l" THEN 110 ELSE IF A$="2" THEN 300 ELSE GOTO 97 
lio DIM MIMP$( 50 ):MODE l:GOSUB 13100:GOSUB 12000:GOSUB 11000:INK 
2.2U:INK 11.2:INK Ü,26:1NK 5.0:INK 6.2:INK 7.l8:INK 13,6:MUt-MES$ 
(MJ):PAPER 2:INK 0.2:INK 3.15 :INK 8.2 

120 FCt=" "+MUÍ+" - "+AAS:LL=LEN (FCt):LL-20-LL:MODE 0:CLS:TOTD 
=MES(MJ) 

130 PAPER 11:PEN il: PRINT" ":: PRINT #cauce.FC$; 

SPACES(LL):: PRINT"_";:EI : IF lmpres$="B"THEN 
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Calendarios 


PRINT#8: RR$=''-": PRINT#8. RR$ 

lio LOCATE 1,1:INK 10,20:PEN 5:PAPER 10:PRINT" 

.-PRINTífCAUCE," L M MI J V "::PEN 6: PRINT#CAUCE," S ";:PEN 1 

3: PRINT#CAUCE, " D";:PEN 5:PRINT"_"::GOSUB 2000 

0:IF IMPRES$="B"THEN PRINT#8:PRINT#8,RR$ 

150 ORIGIN 0,0: PLOT 0,352,13:DRAWR 639,O,13:GOSUB 5100 

160 FOR I-DIA TO TOTD+DIA-1:PI-" "+STR$(I-DIA+1):MIMP$(I)-RIGHTS 

(Pt,2):NEXT :PAPER 2 

170 FOR I - 1 TO DIA -1:MIMP*(I)-" ":NEXT 

180 LOCATE 1,6:PAPER 2:PRINT:PRINT:CONTIM-1::FOR 1=1 TO 6:FOR 0-1 
TO 7:IF O <6 THEN PEN 5 
190 IF 0-6 THEN PEN 6 ELSE IF 0=7 TREN PEN 13 

200 PRINT#CAUCE,MIMP$(CONTIM)¡" "::CONTIM-CONTIM+1:NEXT:ORIGIN 0, 

0:GOSUB 20000:PRINT#CAÜCE:PRINT:NEXT 

220 GOSUB 20000:IF CAUCE-0 THEN CALL &BB06 

230 IF IMPRES$-"S" THEN IMPRESt="B":CAUCE-8:GOSUB 10000:GOTO 130 
270 RUN 10 

300 MODE l:c-3:GOSUB 20000:GOSUB 13200 
305 GOSUB 11000:GOSUB 12000 

310 DIM MIMP$(12,12):MODE 1:INK 0.26:INK 1.0:DI:PEN OiPAPER 1:CLS 
:LOCATE 8,13:PRINT"ESPERE UN MOMENTO POR FAVOR" 

320 FOR MJ-1 TO 12:AA-VAL(AA$):D-1:RTC-1:GOSUB 5400:totd-mesCmd) 
330 GOSUB 10000:FOR I-DIA TO TOTD+DIA-1:P*-" "+STRt(I-DIA»!):MIM 
P$(MJ,I)-RIGHTt(P$,2):NEXT 

310 FOR I - 1 TO DIA -1:MIMP$(MJ,I)-" ":NEXT 

350 NEXT:MODE 2:PAPER 0:PEN 1:RQ-1:CLS:GOSUB 20000: CAUCE-0:PRINT 
CHRt(22);CHR»(l)::BORDER 25 
360 GOSUB 10000: PRINT#CAUCE ,TAB(38);aa$:GOSUB 20000 

370 IF CAUCE-8 THEN PRINT#8,TAB(39):"-":PRINT#8 

380 DI: FOR MJ-1 TO 12 STEP 3:TTl-1:TT2-1:TT3-1 

390 IF CAUCE-8 THEN PRINT#8,TAB(11):MES*(MJ);TAB(38);MESt(MJ»1);T 

AB(62):MES$(MJ»2):LLt-"-":DL$-" L M MI J V 

S D":PRINT#8,TAB{6):LLt;TAB(31):LL$:TAB(56):LL$ 
loo IF CAUCE-8 THEN PRINT#8,TAB(6);DL$:TAB(31):DL$:TAB(56):DL$:PR 
INT«:8, TAB (6) i LL*; TAB (31) i LLt: TAB (56) ¡ LL$ 

410 FOR U-1 TO 6 

120 PRINT#CAUCE,TAB(6);:FOR I- 1 TO 7:PRINT#CAUCE. MIMP$(MJ.TTl); 
" :TT1-TT1+1:NEXT:G0SUB 20000 

130 PRINT#CADCE,TAB(31);:FOR I- 1 TO 7:PRINTfCAUCE,MIMPt(MJ+1,TT2 
);" "¡:TT2-TT2»1:NEXT 

lio PRINT#CAUCE,TAB(56)¡:FOR I- 1 TO 7:PRINT#CAUCE, MIMPt(MJ»2,TT 
3):" :TT3-TT3+1:NEXT :PRINT#CAUCE 
450 NEXT 

160 NEXT:GOSUB 20000:IF oauoe-0 THEN CALL aBB06 
170 PRINT CHR$(22):CHRt(0): 

180 IF IMPRES$-"S" THEN IMPRESt-"":CAUCE-8:GOTO 360 
190 RUN 10 

5100 mm-md: dd-l:mm-mm-2: IF mm<l THEN mm-imn+12: aa-aa-1 
5500 y$-STRt(aa) 

5600 cc-INT(aa/100):yy-VAL(RIGHTt(y$,2)):aa-INT(2.6*mm-0,19)+dd+y 
y+INT(yy/l)»INT(co/l)-cc*2:dia-INT((aa/7-INT(aa/7))*7*0.1) 

5700 IF dla-0 THEN dla-7 

5800 RETURN 

10000 REM Impresora 

10010 IF cauce-8 THEN PAPER 0:INK 0,0:PEN 1:INK l,21:MODE l:LOCAT 
E 6,13:PEN 1:PRINT"prepare papel y pulse una tecla":CALL &BB06:RE 
TURN 
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Calendarios 


10070 RETUR» 

11000 DIN mest(12).mes(12):RESTORE 11100:FOR i- 1 TO 12:READ mes» 
(l).meB(i):NEXT:IF aa MOD 4-0 THE» me8(2)-29 :IF aa/lOO-INT (aa/1 
00) THE» mes (2)-28:lF aa/lOOO-INT (aa/1000) THE» mes (2)-29 
11010 RETÜR» 

11100 DATA ENERO,31.FEBRERO,28,MARZO.31.ABRIL.30.MAYO,31.JUNIO. 30 
, JULIO, 31.AGOSTO.31,SETIEMBRE.30,OCTUBRE,31.NOVIEMBRE.30.DICIEMBR 
E.31 

12000 CLS:C-3:GOSUB 20000:LOCATE 9.13:PRINT"QUIERE IMPRIMIRLO (S/ 
N)? 

12010 IMPREsl-INKEY»:IF IMPREs*-"" THEN 12010 ELSE IMPREst-UPPER» 
(IMPREs*) 

12020 RETURN 

13100 LOCATE 6,8:PEN 1:PRINT"MES DESEADO (numérico)":PEN 2:LOCATE 
30,8:INPUT mj$:mj.VAL(mJt):IF mj<l OR mj>12 THEN PRINT CHR*(7):G 
OTO 13100 

13200 LOCATE 6,15:PEN 1:PRINT"A":CHR$(245);"O DESEADO (Min 1752)" 
:PE» 2:LOCATE 30.15:INPUT "".aa» :aa-VAL(aa»):IF aa< 1752 THEN PR 
INT CHR»(7):GOTO 13200 
13210 RETURN 

20000 PLOT 0.0:DRAWR 639.0,c:DRAWR 0.399: DRAWR -639.0:DRAWR 0.-3 
99:RETURN 
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Calendarios 


Bcm 


L H RI I V S 1 


12 3 4 
S 6 7 B 9 II 11 
12 13 14 19 lé 17 18 
19 21 21 22 23 24 29 
24 27 28 29 31 31 

MRIL 


L H RI 3 V 8 


1 2 3 4 9 
4 7 8 9 II 11 12 
13 14 19 14 17 18 19 
21 21 22 23 24 29 24 
27 28 29 31 

JUIIB 


L R RI J V S I 


1 2 3 4 9 
4 7 8 9 II 11 12 
13 14 19 14 17 II 19 
21 21 22 23 24 29 24 
27 28 29 31 31 

OCTUBRE 


L R RI J V S I 


12 3 4 
9 4 7 8 9 11 11 
12 13 14 19 14 17 II 
19 21 21 22 23 24 29 
24 27 28 29 31 81 


FEBRERO 


L R RI ] V S I 


1 

2 3 4 9 4 7 8 
9 II 11 12 13 14 19 
14 17 18 19 21 21 22 
23 24 29 24 27 28 

HAYO 


L R HI J V 8 I 


1 2 3 
4 9 4 7 I 9 II 
11 12 13 14 19 14 17 
II 19 21 21 22 23 24 
29 24 27 28 29 31 31 

ASOSTO 


L R RI ] V S I 


1 2 

3 4 9 4 7 8 9 
II 11 12 13 14 19 14 
17 II 19 21 21 22 23 
24 29 24 27 21 29 31 
31 

HOVIERIRE 


L H RI ] 9 S I 


1 

2 3 4 9 4 7 8 
9 II 11 12 13 14 19 
14 17 18 19 21 21 22 
23 24 29 24 27 28 29 

31 


L R HI I V S I 


1 

2 3 4 9 4 7 8 
9 II 11 12 13 14 19 
14 17 18 19 21 21 22 
23 24 29 24 27 28 29 
31 31 

mío 


L H HI J V S I 


1 2 3 4 9 4 7 
8 9 II 11 12 18 14 
19 14 17 18 19 21 21 
22 23 24 29 24 27 28 
29 81 

SETIEHBRE 


L H RI ] V 8 I 


1 2 3 4 9 4 
7 8 9 II 11 12 13 
14 19 14 17 II 19 21 
21 22 23 24 29 24 27 
28 29 31 

IICIEHIRE 


L H RI J V 8 I 


1 2 3 4 9 4 
7 8 9 II 11 12 13 
14 19 14 17 II 19 21 
21 22 23 24 29 24 27 
21 29 31 31 
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Agenda mensual 


¿Cuántas veces ha quedado usted mal por no acudir a una cita 
que no ha recordado? Esto ya no le sucederá más, ya que la 
agenda mensual acude en su ayuda. 

Este programa permite introducir todas las cosas a hacer duran¬ 
te todo el mes, con intervalos de media hora, desde las 8 h. 
hasta las 19,30. 

Cada vez que inicie el mes, debe seleccionar la primera opción; 
en el resto de casos, debe en primer lugar seleccionar la opción 
CONSULTAR DATOS, con el fin de cargar los datos que ya 
existan de ese mes en cinta o disco. Si quiere modificar los da¬ 
tos o añadirlos, seleccione la opción pertinente. Una vez aparez¬ 
ca el día deseado, puede desplazarse arriba y abajo de la ficha 
por medio de las flechas del cursor. Si quiere terminar, pulse el 
signo de potenciación. Puede imprimir los datos en papel si le 
interesa. 

No olvide grabar los datos cada vez que efectúe una modifica¬ 
ción o un añadido en los mismos, para que éstos queden refleja¬ 
dos en el mes determinado. 

Cabe remarcar en este programa la rutina que existe a partir de 
la línea 25000, y que permite sustituir las sentencias INPUT por 
entradas letra a letra. Esto complica mucho el programa, pero 
es la única forma de proceder en los campos de las fichas e im¬ 
pedir entradas más largas de las permitidas sin que la pantalla se 
altere. 
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Agenda mensual 


1 REM *«« AGENDA MENSUAL ««« 

2 REM 

3 REM ■ 
i REM 

5 REM 

6 REM 

9 SPEED WRITE 1: SYMBOL AFTER 91:SYMBOL 92.129.0.198.230.2a6.222. 
206.0:DIM MES»(2ll.31) 

10 MODE 1:PEN l:BORDER 10:Cx3:GOSUB 20000:INK 0.0:INK 3.26 
20 LOCATE 6.6:PRINT"ELIJA OPCION:" 

30 LOCATE 9.10:PEN 2:PRINT"1) EMPEZAR NUEVO MES 
ÜO LOCATE 9.12:PRINT"2) CONSULTAR DATOS" 

50 LOCATE 9.m:PRINT"3) AAADIR O CAMBIAR DATOS" 

55 LOCATE 9.16:PRINT"Ü) GRABAR LOS DATOS" 

60 LOCATE 6.20:PEN 3:PRINT"PULSE NUMERO CORRESPONDIENTE 

65 A$=INKEY*:IF A$-"" THEN 65 

70 A=ASC (A$)-ll8:IF A< I OR A >Ü THEN 65 

80 ON A GOTO 1000.2000.1000.4000 

1000 REM CREACION DE MES 

1010 CLS:C-3:GOSUB 20000:GOSUB 14000 

1020 CLS:LOCATE 6.12:INPUT "DIA DESEADO ":D$:D=VAL(D$): IF D< 1 O 

R D>LON THEN SOUND 1.25.20:GOTO 1020 

1030 CLS:GOSUB 16000 

1035 IF RE>1 THEN RE-0:RETURN 

1040 I=l:W.13:GOSUB 17000 

1050 GOTO 10 

2000 REM CONSULTA DE DATOS 

2010 C-3:CLS:GOSUB 20000:GOSUB 14000:IF LOA=0 THEN GOSUB 5000 
2020 RE=1: GOSUB 1020: CALL &BB06: CLS: LOCATE 9. 13: PRINT"I3UIERE IMPR 
IMIRLO (s/n)" 

2030 A$=-INKEY$: IF A* = "" THEN 2030 ELSE IF UPPERS(A$) ="N" THEN GOT 
O 10 

2040 IF UPPER$(A$)<>"S" THEN 2030 

2050 LOCATE 2,17:PRINT"PREPARE LA IMPRESORA Y PULSE UNA TECLA":CA 
LL &BB06:CAU=8:GOSUB 16000:CAU=0:GOTO 10 
4000 REM GRABACION DE DATOS 

4010 CLS:C-2:GOSUB 20000:LOCATE 2.13:PRINT"PULSE PLAY Y REC.Y DES 
PUES UNA TECLA":CALL 8BB06:'NO NECESARIO EN AMSTRADS DE DISCO 
4020 Ml$=LEFT$("!"+M$.8):OPENOUT Ml$ 

4030 FOR I.»l TO 24:FOR U=1 TO 31: PRINT#9. MES* (I, U): NEXT U,I:CLOSE 

OUT:LOA-1:GOTO 10 

5000 REM LECTURA DE DATOS 

5005 IF LOA-1 THEN RETURN 

5010 CLS:C=2:GOSUB 20000:LOCATE 4,13:PRINT"PULSE PLAY Y DESPUES U 
NA TECLA":CALL aBB06' NO NECESARIO EN AMSTRADS DE DISCO 
5020 Ml$=LEFT$("!"*Mt.8):OPENIN Ml$ 

5030 FOR I-l TO 24:FOR U=1 TO 31:INPUT #9.MES$(I,U):NEXT U,I:CLOS 

EIN:LOA=l:RETURN 

14000 REM ENTRADA DEL MES 

14005 IF M$<>"" THEN LOCATE 7.8:PRINT"ES EL MES DE ":M$ " (S/NV 
ELSE GOTO 14010 

14006 AÍ-INKEY$:IF A$="" THEN 14006 ELSE IF UPPERS(A*)="S" THEN R 
ETURN 

14007 IF UPPERS(AS)<>"N" THEN SOUND 1,6.10:GOTO 14006 ELSE LOA-0 

14008 ERASE mesS:DIM mesS(24.31) 

14010 PEN 1:LOCATE 10.12:PRINT"MES DESEADO "::PEN 2:INPUT "".MESS 
:GOSUB 15000:IF ER=1 THEN ER=0:LOCATE 12,16:PEN 3:PRINT"MES DESCO 
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Agenda mensual 


NOCIDO":FOR 1= 1 TO 2800:NEXT:LOCATE 12,16:PRIMT" 

":GOTO lÜOlO 
1/1020 PEN 1:RETURN 
15000 REM CALCULO DE MES Y DE DIAS 

15010 M=13:L-LEN (MES$):MES**OPPERt(MESt):M=VAL(MESt):IF M-0 THEK 
M=13:GOTO 15030 

15020 IF M<1 OR M>12 THEN SOUND 1.10,10:ER-1:RETURN 
15030 RESTORE:FOR I- 1 TO M:READ M»,LON:IF MES$-LEFT»(M$,L) THEN 
1-90 

150ao NEXT 

15050 IF M$-"FINAL" THEN ER=l:SOUND 1.20.30 
I 5 O 6 O RETURN 

15070 DATA ENERO.31.FEBRERO.29.MARZO,31.ABRIL.30.MAYO,31.JUNIO,30 
,JULIO. 31 .AGOSTO, 31 .SETIEMBRE,30.OCTUBRE,31.NOVIEMBRE,30.DICIEMBR 
E. 31 .final.o 

16000 REM Imprime un día determinado 

16010 RESTORE 18000:PEN l:PRINT#cau ." piA";D:"de ":m$ 

16020 FOR 1-1 TO 2/l:READ ho$:PEN 2: PRINT#cau. ho*; TAB( 7): : PEN 1:PR 
INT/rCAU,me3$(l, D) 

16030 NEXT 
160Ü0 RETURN 

17000 SS-0:FIN-0:PEN 3:LOCATE 6.W:PRINT" ":LOCATE 6.I+1:PRINT CHR 
$(233): :LL-3/l:W-I + l:GOSUB 25000:IF SS-1 THEN 17000 
17010 IF FIN-1 OR 1-2/1 THEN LOA-1: RETURN 
17020 IF TOT$<>"" THEN MES$(I.D)-TOT$ 

17030 I=I+l:GOTO 17000 

18000 DATA " 8 : 00 "." 8 : 30 "." 9 : 00 "." 9 : 30 "." 10 : 00 "." 10 : 30 "," 11:00 
"." 11 : 30 ", " 12 : 00 ", " 12 : 30 ". " 13 : 00 ". " 13 : 30 ". "14:00". " 1 / 1 : 30 ", "15: 00" 
," 15 : 30 "." 16 : 00 "." 16 : 30 ","17:00","17: 30 "," 18 :00","18: 30 ","19:00". 
" 19 : 30 " 

20000 REM *** subrutina de enmarcado 

20010 ORIGIN 0.0 

20020 DRAWR 639,O.C 

20030 DRAWR 0.399 

20040 DRAWR -639.0 

20050 DRAWR 0,-399 

20060 RETURN 

25000 TOT$-"":LE=l 

25002 A$=INKEY$:IF AS-"" THEN 25002 
25005 IF A$-CHR$(13) THEN RETURN 

25010 IF A$-CHR$(240) THEN IF I> 1 THEN I-I-l:SS-1:RETURN ELSE 
SOUND 1,20,20:GOTO 25002 

25020 IF A$-CHR$(24l) THEN IF I<24 THEN I-I+1:SS-1: RETURN ELSE S 
OUND 1,12,20:GOTO 25002 

25030 IF A$-CHR$(127) THEN IF LE >1 THEN PRINT CHR$(8):" ";CHRS(8 
)::LE-LE-l:sg=LEN (totS):totS-LEFT$(totS,gg-1):GOTO 25002 ELSE SO 
UND 1.12.19:GOTO 25002 

25035 IF LE>LL THEN SOUND 1,30.15:GOTO 25002 

25040 IF A$-"í" THEN FIN-1:RETURN 

25050 PRINT A$::TOT$=TOTStA$:LE=LE*l:GOTO 25002 
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Agenda mensual 


DIA m de FEBRERO 
8:00 Desayuno con el Sr. Barrigas 
8: 30 

9:00 Visita al Sr. Mirador 
9:30 Junta general 
10:00 Ídem 
10:30 Ídem 

11:00 Repaso de presupuestos 
11:30 Visita al sr. Reiterativo 
12:00 Ídem 
12:30 

13:00 Ir a agencia de seguros 
13: 30 

lIliOO Comida con el Sr. Sobrio 
15:00 

15:30 Inaguraclon de monumento 

l6:00 Ídem 

16:30 

17:00 Presentación del libro.Autógrafos 
17:30 Ídem 

l8:00 Visita Sr Ivantres 
18: 30 

19:00 Reunión Padres de alumnos 
19: 30 
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Agenda telefónica 


Este programa le va a permitir tener un listín de nombres, apelli¬ 
dos, domicilos y teléfonos. 

El funcionamiento es muy simple, y los menús son autoexplica- 
tivos. La primera vez que lo utilice debe usar la primera opción; 
en las siguientes, esta opción no debe usarse. Si sé queda sin 
espacio, puede seleccionar la opción de añadir fichas. 

Siempre que desee ver un teléfono o modificar un dato, podrá 
buscar la persona afectada por su número en el fichero, su 
nombre y apellidos, su domicilio o por las iniciales de éstos. Si 
no es encontrado, el ordenador le avisará. 

Puede asimismo listar todas los datos por pantalla o por impre¬ 
sora. 

No olvide grabar los datos cuando haya añadido nombres o ha¬ 
ya hecho modificaciones. 

Este programa es especialmente útil para aquellas personas que 
posean unidad de disco. 


1 REM AGENDA TELEFONICA *** 

2 REM 

3 REM 
U REM 

5 REM 

6 REM 

7 REM 

9 SYMBOL AFTER 92:SYMBOL 92.12Ü.0.198.230.2Ü6,222.206,0 

10 MODE 1:INK 0.0:INK 1.2a:BORDER 12:PEN 1:SPEED WRITE 1: ’ In 

Iclallzaclon 

20 c»3:GOSÜB 20000:LOCATE 6.U:PRINT"ELIJA OPCION: 

25 REM MENU PRINCIPAL 

30 PEN 2:LOCATE 8.7:PRINT"1) ABRIR FICHERO NUEVO" 
ilO LOCATE 8.10: PRINT"2) AftADIR DATOS" 

50 LOCATE 8.13:PRINT"3) MODIFICAR DATOS" 

60 LOCATE 8.l6:PRINT"a) CONSULTA DE DATOS 
65 LOCATE 8.19:PRINT"5) GRABAR LOS DATOS" 

70 PEN 3:LOCATE 6.22:PRINT"pulBe numero adecuado" 

80 a$.INKEY*:IF a$="" THEN 80 
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Agenda telefónica 


85 REM OPCION DESEADA 

90 A-ASC (A$)-il8:IF A< 1 OR A>5 THEN SOUND 1. RND*30+10,10: GOTO 80 

100 REM DESVIO SEGUN OPCION 

lio ON A GOTO 1000,2000,3000.4000.5000 

1000 REM CREAR FICHERO 

1010 CLEAR: CLS:C-3:PEN 1:LOCATE 6.13:PRINT"CÜANTAS PERSONAS QUIE 

RE?"í:PEN 3:INPUT N$:N-VAL(N»):IF N-0 THEN GOTO 10 

1020 DIM CUENTA#(N.3):loa-l 

1030 FOR I» 1 TO N:GOSUB 13000:NEXT:GOTO 10 

2000 REM AfiADIR NOMBRES 

2010 CLEAR:CLS:C«1:PEN 2:LOCATE 6.13:PRINT"CUANTOS QUIERE AflADIR? 
"::PEN 3:INPUT AN$:AN-VAL(ANt):IF AN-0 THEN GOTO 10 
2020 GOSUB 10000:GOSUB 11000 

2030 FOR I-N+1 TO N*AN:GOSUB 13000:NEXT:N-N+AN:GOTO 10 

3000 REM CAMBIAR DATOS 

3010 GOSUB 10000:GOSUB 11000 

3020 CLS:C-3:GOSUB 20000:PEN 1:LOCATE 6,4:PRINT"INTRODUZCA PERSON 
A A MODIFICAR" 

3030 LOCATE 3,7:PEN 2:PRINT"(Puede hacerlo por numero de fichero, 
":LOCATE 5.9:PRINT"por nombre, o por dirección) 

3040 k«0:PEN 1:LOCATE 3.12:PRINT"numero en el fichero ":"(l-";n:" 
)"::PEN 2:INPUT "".kl 
3050 IF kt-"" THEN 3070 

3060 k.VAL(k$):IF k<l OR k> n THEN SOUND 1.10.20:GOTO 3040 ELSE G 
OTO 3200 

3070 PEN 1:LOCATE 3.15:PRINT"nombre o apellido "::PEN 2:INPUT 

k$ 

3080 IF k$."" THEN 3100 

3090 J.l:GOSUB 15000:IF kOO THEN 3200 ELSE GOTO 3125 
3100 PEN 1:LOCATE 3.18:PRINT"direcclon ";:PEN 2:INPUT "".k$ 

3110 IF k$-"" THEN 10 
3120 i-2:GOSUB 15000 

3125 IF k»0 THEN LOCATE 2,23:PEN 3:PRINT"no consta ninguna person 
a con este dato";CHR»(7)::FOR 1- 1 TO 2500:NEXT:GOTO 10 
3200 CLS:o«3:GOSUB 20000:PEN l:LOCATE 20.2:PRINT"persona numero"; 
k 

3210 LOCATE 2,6:PRINT"nombre":LOCATE 2.11:PRINT"direccion":LOCATE 
2.16:PRINT"telefono 

3220 PEN 2:FOR i- 1 TO 3:LOCATE 2,(1*5)+3:PRINT ouenta*(k,1):NEXT 
3225 IF RE-1 THEN RE=0:RETURN 

3230 LOCATE 6.24;PRINT"pulse tecla para modificar":CALL &BBO6 
3240 1-k:GOSUB 13000:GOTO 10 

3280 PEN 2:LOCATE 14,24:PRINT"PULSE UNA TECLA":CALL &BB06:GOTO 10 

3999 GOTO 3999 

4000 REM CONSULTA DE DATOS 

4005 CLS:LOCATE 5.8:PEN l:c-3:GOSUB 20000:PRINT"QUE DESEA:":PEN 2 
:LOCATE 10,12:PRINT"!) VER TODOS LOS DATOS":LOCATE 10,15:PRINT"2) 
BUSCAR UNA PERSONA":LOCATE 6,19:PEN 1:PRINT"PULSE NUMERO ADECUAD 
O" 

4007 A*>INKEY»:IF A$-"" THEN 4007 ELSE IF A$-"2" THEN 7000 

4008 IF A*<>"1" THEN 4007 
4010 GOSUB 10000:GOSUB 11000 

4020 CLS:c=3:GOSUB 20000:LOCATE 7.13:PRINT"QUIERE COPIA IMPRESA ? 
(S/N)" 
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4030 At-INKEY*:IF A$-"" THE» 4030 ELSE A*-UPPERt(At) 

4040 IMP-OtlF At»"S" THEN IMP-8 ELSE IF AtO"»" THEN 4030 
4030 CAU«0:OOSUB 14000:IF IMP>8 THEN CAU-8:00SUB 14000 
4060 GOTO 10 

5000 REM GRABACION DE DATOS 
5010 IF NOMI-"" THEN GOSDB 10000 
5020 GOSDB 12000:GOTO 10 

6000 LOCATE 11,22:PRINT"flch«ro desconocido":FOR u- 1 TO 2000:NEX 
T:RDN 10 

7000 RE-1:CLS:C>3:GOSDB 20000:PEN l:LOCATE 6.4:PRINT"INTRODDZCA P 
ERSONA A BDSCAR":GOSDB 3030 

7010 LOCATE 15.23:PEN 3:PRINT"PÜLSE DNA TECLA":CALL &BB06:GOTO 10 


10000 REM NOMBRE DEL FICHERO 
10005 IF NOM»<>"" THEN RETDRN 
10010 CLS:C-3:GOSDB 20000 

10020 PEN 1:LOCATE 5.13:PRINT"NOMBRE DEL FICHERO?"::PEN 2:PRINT" 

N 

10030 LOCATE 25.13:INPDT "". NOM*:IF LEN (NOMt)>8 OR NOM»-"" THEN 
PRINT CHRI(7):GOTO 10020 
10040 NOM»-"!"*NOMI 
10050 RETDRN 

11000 REM LECTDRA DE DATOS 

11003 ' ON ERROR GOTO 6000 ' solo para amstrads de disco 
11005 IF LOA-1 THEN RETDRN ' DATOS YA LEIDOS 

11010 CLS:C-2:GOSUB 20000:PEN l:LOCATE 3.13:PRINT"PDLSE PLAY EN E 
L CASSETTE Y DNA TECLA":CALL &BB06 ' sobra en Amstrad de disco 

11020 OPENIN nom»:INPÜT #9.At:n»VAL(a*):DIM cuenta»(n+AN.3) 

11030 FOR 1- 1 TO n 
11040 FOR u- 1 TO 3 
11050 INPÜT #9.cuenta$(l,u) 

11060 NEXT 
11070 NEXT 
11080 CLOSEIN:LOA-1 
11090 RETDRN 

12000 REM GRABACION DE DATOS 

12010 CLS:C-2:GOSDB 20000:PEN 1:LOCATE 6,11:PRINT"PDLSE PLAY y RE 

C EN EL CASSETTE ":LOCATE 11,14:PRINT" Y DNA TECLA DESPDES":CALL 

&BB06:' sobra en Amstrad de disco 

12020 OPENODT nom*:A$«STR*(N):PRINT#9.At 

12030 FOR 1- 1 TO n 

12040 FOR u- 1 TO 3 

12050 PRINT #9,cuenta»(i,u) 

12060 NEXT 
12070 NEXT 

12080 CLOSEODT :LOA-1 
12090 RETDRN 

13000 REM AÑADIR PERSONAS 

13005 CLS:C-3:GOSDB 20000: PEN 2:LOCATE 15.2:PRINT"PERSONA NDM.": 
:PEN 3: PRINT I 

13010 LOCATE 6,7:PEN 1:PRINT"NOMBRE Y APELLIDOS":PEN 2:LOCATE 2,9 
:PRINT STRING»(32."::LOCATE 2,9:INPDT "",CDENTA»(I.1 
) :IF LEN (CÜENTA»(I,1))> 32 THEN SODND 1,20,10:GOTO 13010 
13020 PEN 1:LOCATE 6,12:PRINT"DIRECCION?":LOCATE 2,14:PEN 2:PRINT 
STRING»(32. ".‘LOCATE 2.14:INPDT "". CDENTA»(I. 2): IF L 

EN (CDENTA»(I,2))> 32 THEN SODND 1,20.10:GOTO 13020 
13030 PEN l:LOCATE 6,19:PRINT"TELEFONO? "::PEN 2:PRINT STRING»(1 
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4."."):L0CATE 17.19 :IMPÜT CUENTAtd, 3): IF LEN (CUENTAtd, 3) )> 
14 THEN SOUND 1,20,10:0070 13030 
13040 RETURN 

14000 CLS:PEN 1:IF CAU>8 THEN LOCATE 6,13: PRINT"PREPARE IMPRESORA 
Y PULSE TECLA" :CALL 8.BB06 
1400$ INK 0,26:INK 1.0:BORDER 24:MODE 2 

14010 PRINT #CAÜ," NOMBRE DIRECC 

ION TELEFONO"::IF CAO-8 THEN PRINTfCAU 

14015 PRINTfCAU."- 

-"::IF CAU-8 THEN PRINTfCAU 

14020 TOTPAN-0: POR I- 1 TO N 

14030 PEN l:PRINTfCAU,CUENTAtd.l):TAB (34): CUENTAfd, 2): TAB(67): 
CUENTA*d,3)::IF CAU-8 THEN PRINTfCAU 

14040 IF CAÜ-0 THEN TOTPAN-TOTPAN+1:IF TOTPAN-20 THEN TOTPAN-0:LO 
CATE 35.24:PR1NT"PULSE TECLA":CALL 4BB06:CLS 

14050 NEXT:IP CAU-8 THEN PRINTfCAU,"- 


14060 IF CAU-0 THEN :LOCATE 35,24:PRINT"PULSE TECLA":CALL &BB06:C 
LS 

14080 RETURN 

15000 1-LEN (k»):FOR I- 1 TO N:IF UPPER»(k*)-LEFT*(UPPER#(cuenta# 
(1,1)),L) THEN k-l:l-n 
15010 NEXT:RETURN 

20000 REM *** subrutina de enmarcado *** 

20010 ORIOIN 0,0 
20020 DRAWR 639,O.c 
20030 DRAWR 0.399 
20040 DRAWR -639,0 
20050 DRAWR 0.-399 
20060 RETURN 


NOHKE IIRECCION TELEFONO 


NMCIIMO VERK ANTONIO ti lAJAM K LA SUIIM 13 2112233 

APARICIO ANTIfiüO JOSE PLAZA CUAMM 3 2199112 

COLORAN AZULETE CASTRIM ti TORCIM 23 22211S5 

PIRIPEZ aOY EVA ti ESTRECHA 123 21I1I1I 

INFORNACION K TELEFONOS M PROCEK M3 

IlLLAR PELOTA JUANITA AVI AVIACION 33 234SÍ78 
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Éste es uno de los programas más útiles de este libro, sobre 
todo si tiene usted unidad de disco, aunque con el CPC 464 la 
transferencia de datos es también rapidísima. 

El programa permite llevar en casa el control de todas las cuen¬ 
tas bancarias y libretas de ahorro. 

La primera vez que lo utilice debe usted introducir las cuentas 
que quiere controlar. Puede introducir su número de cuenta, un 
nombre de identificación y el saldo en el momento de la intro¬ 
ducción. Si una vez creado el fichero ve que se ha olvidado al¬ 
guna cuenta, puede escoger la opción de añadir cuentas, pero 
para ello debe tener grabadas las anteriores. 

Cada vez que efectúe una operación bancaria debe cargar el 
programa y seleccionar la opción INTRODUCIR DATOS. El or¬ 
denador le solicitará la cuenta implicada, pudiendo usted intro¬ 
ducir su número en el fichero, o el número de cuenta, o el 
nombre de la misma, o iniciales, procediendo el ordenador a 
buscar la cuenta. Si no existe, le dará el aviso correspondiente. 
Seguidamente, el ordenador le preguntará si se trata de una im¬ 
posición o reintegro, así como el importe de la operación, para 
proceder a continuación a la actualización automática de la 
cuenta y saldo total. 

Si quiere consultar los saldos de las cuentas, escoja la opción 
CONSULTA DE DATOS, con lo cual aparecerán las cuentas en 
la pantalla con sus saldos actualizados —en rojo si son ne¬ 
gativos—, y al final, el saldo total de todas las cuentas. 

No olvide efectuar la grabación de datos con la opción GRA¬ 
BAR LOS DATOS cada vez que los modifique, ya que en caso 
contrario no quedarían reflejados. 
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1 REM »*»»*» BANKHOUSE »*»**» 

2 REM 

3 REM 
a REM 

5 REM 

6 REM 

7 REM 

9 SYMBOL AFTER 92:SYMBOL 92.12Ü.0.198.230.2U6.222.206,0 

10 MODE 1:INK 0.0:BORDER 12:PEN 1:SPEED WRITE 1: ' Inielalizac 

Ion 

20 o=3:GOSUB 20000: LOCATE 6. il: PRINT"ELIJA OPCION: 

25 REM MENU PRINCIPAL 

30 PEN 2:LOCATE 8.7:PRINT"1) ABRIR FICHERO NUEVO" 

40 LOCATE 8.10:PRINT"2) AAADIR CUENTA BANCARIA" 

50 LOCATE 8.13:PRINT"3) INTRODUCIR DATOS" 

60 LOCATE 8.16:PRINT"a) CONSULTA DE DATOS 
65 LOCATE 8,19:PRINT"5) GRABAR LOS DATOS" 

70 PEN 3:LOCATE 6.22:PRINT"pulse numero adecuado" 

80 a*.INKEYI:IF a$-"" THEN 80 
85 REM OPCION DESEADA 

90 A*VAL (A$):IF A< 1 OR A>5 THEN SOUND 1.RND*30+10.10:GOTO 80 

100 REM DESVIO SEGUN OPCION 

lio ON A GOTO 1000.2000.3000.4000.5000 

1000 REM CREAR FICHERO 

1010 CLEAR:CLS:C-3:PEN 1:LOCATE 6.13:PRINT"CUANTAS CUENTAS QUIERE 

?"::PEN 3:INPUT N»:N-VAL(N$):IF N-O THEN GOTO 10 

1020 DIM CUENTA$(N.3):loa-l 

1030 FOR I. 1 TO N:GOSUB 13000:NEXT:GOTO 10 

2000 REM AAADIR CUENTAS 

2010 CLEAR:CLS:C-1:PEN 2:LOCATE 6.13:PRINT"CUANTAS QUIERE. AfiADIR? 
"::PEN 3:INPUT AN*:AN-VAL(AN$):IF AN-0 THEN GOTO 10 
2020 GOSUB 10000:GOSUB 11000 

2030 FOR I*N+1 TO N*AN:GOSUB 13000:NEXT:N-N*AN:GOTO 10 

3000 REM CAMBIAR DATOS 

3010 GOSUB 10000:GOSUB 11000 

3020 CLS:C*3;GOSUB 20000:PEN 1:LOCATE 6.4:PRINT"INTRODUZCA CUENTA 
A MODIFICAR 

3030 LOCATE 3,7:PEN 2:PRINT"(Puede hacerlo por numero de fichero, 
LOCATE 5.9:PRINT"numero de cuenta o nombre de esta) 

3040 k = 0:PEN 1:LOCATE 3.12:PRINT"numero en el fichero n;" 

)"::PEN 2:INPUT "".k$ 

3050 IF k$-"" THEN 3070 

3060 k=VAL(k$):IF k<l OR k> n THEN SOUND 1.10.20:GOTO 3040 ELSE G 
OTO 3200 

3070 PEN 1:LOCATE 3.15:PRINT"numero de cuenta "::PEN 2:INPUT "". 
k$ 

3080 IF k$*"" THEN 3100 

3090 j-l:GOSUB 15000:IF kOO THEN 3200 ELSE GOTO 3125 

3100 PEN 1: LOCATE 3.18: PRINT"nombre de la cu.enta ";:PEN 2: INPUT " 

", kl 

3110 IF k$="" THEN 10 
3120 .1=2:GOSUB I5OOO 

3125 IF k=0 THEN LOCATE 2.23:PEN 3:PRINT"no consta ninguna cuenta 
con este dato":CHRt(7)::FOR 1= 1 TO 2500:NEXT:GOTO 10 
3200 CLS:c*3:GOSUB 20000:PEN 1:LOCATE 20.2:PRINT"cuenta numero";k 

3210 LOCATE 6.6:PRINT"CUENTA":LOCATE 6.9:PRINT"NOMBRE":LOCATE 6,1 
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2:PRINT"SALDO" 

3220 PEN 2:FOR 1= 1 TO 3:LOCATE 16,(i+1)*3:PRINT cuentaSÍk.1):NEX 
T 

3230 VVV.-1:PEN 3: LOCATE 2.19: PRINT''que desea, imposición o relnte 
gro (I.R)" 

32ft0 A$*INKEy*:IF A$»"" THEN 32Ü0 

3250 A$*UPPER$(A»):IF At-"!" THEN VVV-l ELSE IF A»<>"R" THEN SOUN 
D 1,19.10:GOTO 32^0 

3260 PEN 1:LOCATE 6.22:PRINT"CANTIDAD? "::PEN 3:INPUT C$:V.VAL (C 
»):IF V-0 THEN SOUND 1.16,10:GOTO 3260 

3270 V-V*VVV:Vl-VAL (CUENTAS(K.3)):A*.STR$(Vl+V):L-LEN (AS)-l-(Vl 
♦V<0 ):CUENTAS(K,3)-RIGHTS(AS.L):LOCATE 16.12:PEN 3:PRINT CUENTAS 
(K,3):" " 

3280 PEN 2:LOCATE lü,24:PRINT"PULSE UNA TECLA":CALL ftBB06:GOTO 10 

3999 GOTO 3999 

4000 REM CONSULTA DE DATOS 
4010 GOSUB 10000:GOSUB 11000 

4020 CLS:C.3: GOSUB 20000: LOCATE 7.13: PRINT"<5UIERE COPIA IMPRESA ? 
(S/N)" 

4030 AS-INKEYS:IF AS-"" THEN 4030 ELSE AS-UPPERS(AS) 

4040 IMP.0:IF AS>"S" THEN IMP-8 ELSE IF A$<>"N" THEN 4030 
4050 CAU-0:GOSUB 14000:IF IMP-8 THEN CAU-8:GOSUB 14000 
4060 GOTO 10 

5000 REM GRABACION DE DATOS 
5010 IF NOMS-"" THEN GOSUB 10000 
5020 GOSUB 12000:GOTO 10 

6000 LOCATE 11.22:PRINT"flchero desconocido":FOR u- 1 TO 2000:NEX 
T:RUN 10 

10000 REM NOMBRE DEL FICHERO 
10005 IF NOMSO"" THEN RETURN 
10010 CLS:0-3:GOSUB 20000 

10020 PEN 1:LOCATE 5.13:PRINT"NOMBRE DEL FICHERO?"::PEN 2:PRINT" 


10030 LOCATE 25.13:INPUT "". NOMS:IF LEN (N0MS)>8 OR NOMS-"" THEN 
PRINT CHRS(7):GOTO 10020 
10040 NOMS-"!"-NOMS:nomS-LEFTS(nomS.8) 

10050 RETURN 

11000 REM LECTURA DE DATOS 

11003 ' ON ERROR GOTO 6000 ' solo para amstrads de disco 
11005 IF LOA-1 THEN RETURN ' DATOS YA LEIDOS 

11010 CLS:C-2:GOSUB 20000:PEN l:LOCATE 3.13:PRINT"PULSE PLAY EN E 
L CASSETTE Y UNA TECLA":CALL &BB06 ' sobra en Arastrad de disco 

11020 OPENIN nomS:INPUT #9.AS:n-VAL(aS):DIM cuentaSÍn+AN.3) 

11030 FOR 1- 1 TO n 
11040 FOR u- 1 TO 3 
11050 INPUT #9.cuentaS(l.u) 

11060 NEXT 
11070 NEXT 
11080 CLOSEIN:LOA-1 
11090 RETURN 

12000 REM GRABACION DE DATOS 

12010 CLS:C-2:GOSUB 20000:PEN l:LOCATE 6.11:PRINT"PULSE PLAY y RE 
•c EN EL CASSETTE ":LOCATE 11.14:PRINT" Y UNA TECLA DESPUES":CALL 
&BB06:' sobra en Amstrad de disco 
12020 OPENOUT nomS;AS-STRS(N):PRINT#9. AS 
12030 FOR 1= 1 TO n 
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IZOttO FOR u* 1 TO 3 
X2050 PRINT f9.cuenta$(l,u) 

12060 NEXT 
12070 NEXT 

12080 CLOSEOUT :LOA-1 
12090 RETURN 

13000 REM AÑADIR LIBRETAS 

13005 CLS:C-3!G0SUB 20000: PEN 2:LOCATE 15.2: PRINT''CUENTA NUM.";: 
PEN 3:PRINT I 

13010 LOCATE 6.7:PEN 1:PRINT"NUMERO DE CUENTA "::PEN 2:PRINT" ... 

. ":LOCATE 24.7:INPUT CUENTA*{I.1) :IF LEN (CUENTA»(I 

.!))> 10 THEN SOUND 1.20,10:GOTO 13010 

13020 PEN 1:LOCATE 6.12:PRINT"NOMBRE?"::PEN 2:PRINT" . 

. ":LOCATE ia.l2:INPUT "".CUENTA*(I.2):IF LEN (CUENTA 

*(I,2))> 20 THEN SOUND 1,20.10:GOTO 13020 

13030 PEN 1:LOCATE 6.17:PRINT"SALDO ACTUAL?"::PEN 2:PRINT" . 

":LOCATE 20.17:INPUT CUENTA*(I,3):IF LEN (CUENTA 
*(I.3))> 8 THEN SOUND 1.20.10:GOTO 13030 
13040 RETURN 

14000 totpan-0:CLS:PEN 1:IF CAU-8 THEN LOCATE 6.13:PRINT"PBEPARE 
IMPRESORA y PULSE TECLA":CALL aBB06 

14010 PRINT #CAU."CUENTA COMENTARIO SALDO";:IF o 

au*8 THEN PRINT#cau 

14015 PRINT #cau."-"::IF o 

au-8 THEN PRINTffcau 

14020 totpan«0: FOR I* 1 TO N 

14030 PEN l:PRINT#CAU,CUENTA*(I.l)::PEN 2:PRINT #cau.TAB (12):CUE 

NTA*(I.2);:PEN 1-2*(VAL(CUENTA*(I.3))<0):PRINT #cau.TAB(4l-LEN(CU 

ENTAÍ(I.3))):CUENTA*(I.3)::IF cau -8 THEN PRINT#cau 

14040 IF CAU=0 THEN TOTPAN-TOTPAN*!:IF TOTPAN-BO THEN TOTPAN-0:LO 

CATE 15.24:PEN 3:PRINT"PULSE TECLA":CALL 8BB06:CLS 

14050 NEXT:IF CAU-8 THEN PRINT #8."- 


14060 IF CAU-0 THEN :LOCATE 15.24:PEN 3: PRINT"PULSE TECLA":CALL 8 
BB06:CLS 

14070 PEN 2:PRINT:PRINT:PRINT: PRINT:PRINTfCAU:PRINT#CAU:TT-0:FOR 
I- 1 TO N:TT=TT->-VAL(CUENTA*(I.3)):NEXT:PRINT#CAU." SALDO G 

LOBAL "::IF TT> 0 THEN PEN 1 ELSE PEN 3 

14080 PRINT#CAU,TT:C-2:GOSUB 20000:LOCATE 15.24:PEN 3:PRINT"POLSE 
TECLA":CALL 8BB06:CLS 
14090 RETURN 

15000 1-LEN (k*):FOR I- 1 TO N:IF UPPER*(k*)-LEFT*(UPPER*(cuenta* 
(1.3)),L) THEN k*i:l-n 
15010 NEXT:RETURN 

20000 REM *** subrutina de enmarcado *** 

20010 ORIGIN 0,0 
20020 DRAWR 639. O.c 
20030 DRAWR 0,399 
20040 DRAWR -639,0 
20050 DRAWR 0,-399 
20060 RETURN 
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CUENTA 

COMENTARIO 

SALDO 

1220-45 

CUENTA PRINCIPAL 

23445 

120-33 

AGENCIA DEL MAR 

123200 

122112 

HIPOTECA 

12322 

12-56B 

AHORROS VARIOS 

432654 

12-001 

BANCO DE MONEDAS 

12309 


SALDO GLOBAL 603930 
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Gráficos 


Éste es un programa de gran utilidad para aquella persona que 
precise obtener gráficos impresos con los porcentajes de diver¬ 
sos conceptos. 

Lo primero que debe usted hacer es seleccionar la opción 1, la 
cual le solicitará los datos a procesar. Para cada uno debe usted 
introducir el nombre y la cantidad absoluta o relativa. Cuando 
no quiera añadir más datos, pulse las dos entradas en blanco. 
Seguidamente, el ordenador calcula el porcentaje de cada uno 
de los conceptos. 

Una vez hecho esto, puede seleccionar tres tipos de gráficos; de 
barras, de pastel —también llamados circulares— o de líneas. 
Después de escoger la opción que desee, deberá responder si 
quiere una copia impresa o no. En el gráfico de barras, además, 
deberá contestar si quiere o no los conceptos en la pantalla. Si 
responde que no, aparecerán las barras multicolores, con una 
letra identificadora para cada una; en caso contrario, aparecerán 
las barras en negro, con la identificación de cada concepto al 
lado. 

Un aspecto importante desde un punto de vista de programa¬ 
ción es la rutina en código máquina, que se carga automática¬ 
mente a partir de la línea 60000. Esta rutina es la encargada de 
volcar la pantalla a la impresora. Esta rutina está explicada con 
más detalle en el último programa. 

La impresión puede hacerse en dos tamaños, según sea CALL 
&AOOO,0 o bien CALL &A000,1 el contenido de la línea 6010. En 
el primer caso, la impresión será grande, y en el segundo, redu¬ 
cida. 
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1 REM ***** GRAFICOS ****** 

2 REM 

3 REM 
U REM 

5 REM 

6 REM 

7 GOSUB 60000 

10 MODE liBORDER 9:c-3:INK 111.15:INK 15.Ü:INK 5.3:INK 0,0 :DIM N$ 
(ít0).PES(40) 

50 REM MENU PRINCIPAL 

60 TOTPAN-0:MODE l:c=3:GOSUB 20000 

70 LOCATE 6.6:PEN 1:PRINT"ELIJA OPCION:" 

80 LOCATE 9.10:PEN 2:PRINT"1) ENTRAR DATOS" 

90 Lócate 9.i2:print"2) gráfico de barras" 

100 LOCATE 9.lü:PRINT"3) GRAFICO DE PASTEL" 

105 LOCATE 9.16:PRINT"a) GRAFICO LINEAL 

lio LOCATE 6.20:PEN 3:PRINT"PULSE NUMERO CORRESPONDIENTE" 

120 A$-INKEY*:IF A$-="" THEN 120 

130 A-ASC (A*)-Ü8:IF A< 1 OR A >Ü THEN 120 

lÜO ON A GOTO 1000.2000.5000.3000 

1000 pst-0:maxl=0:CLS:C=3:GOSUB 20000:PEN 1:LOCATE a.12:PRINT"INT 

RODUZCA LOS DATOS.(MAXIMO aO).":FOR 1= 1 TO 1000:NEXT 

1010 FOR I* 1 TO aO:PEN 1:CLS:C=3:GOSUB 20000:LOCATE 5.8;PRINT"EL 

EMENTO NUM":I:LOCATE 5.13:PRINT"NOMBRE.."::PEN 2:INPUT "".N$(I) 

1020 LOCATE 5.16:PEN 1:PRINT"VALOR..."::PEN 2:INPUT "".A$:PES(I'= 

VALÍAS) 

1030 IF PES(I)-0 AND N*(I)="" THEN TOT=I-l:I-a5:GOTO 1050 
1040 p8t«pst-»pes ( i ) 

1050 NEXT 

1060 FOR 1- 1 TO 40:pes(i)=pes(i)*100/pst:pes(i)-INT(pes(i)*100)/ 
100:IF pes(l)>maxi THEN maxi^pesd) 

1065 NEXT:por-100/maxl 
1070 GOTO 50 

2000 REM craflco de barras 

2010 GOSUB 4000: IF eopan-2 THEN 2100 

2020 MODE 0:PRINT CHR*(22):CHRS(1):C*3:GOSUB 20000:Inte^l-ltot<ll 
):FC-0 

2030 totpan.O:FOR 1-1 TO tot :CC-I AND 15: IF CC-0 THEN CC=5 
2035 LOCATE inte*(I-FC),23:PEN CC:PRINT CHRS(i*64) 

2040 FOR U- 0 TO 31 STEP 4:PLOT (I-FC)*INTE*32-U-32.64.CC:DRAWR 0 
.POR*PES(I)*330/100:NEXT 

2045 TOTPAN-TOTPAN+1:IF TOTPAN-20 THEN TOTPAN-0:FC-20:GOSUB 2060; 
CLS:GOSUB 20000 

2050 NEXT:GOSUB 2060:PRINT CHRS(22):CHRS(0):IF IMP = 1 THEN NIC=1 
:GOSUB 6000:NIC-0 
2055 GOTO 50 

2060 LOCATE MO+5.25:PEN 1:PRINT"PULSE TECLA"; 

2070 A*.INKEY$:IF A$="" THEN 2070 ELSE IF AS-"P" THEN FRINT CHR$( 
22);CHRS(0):GOSUB 6000 :PRINT CHRS(22):CHRS(1 ) 

2080 RETURN 

2100 MODE 2:C-1:PRINT CHRS(22):CHRS(1):GOSUB 20000:lnte-1-(tot<21 
):WINDOW #1,42,79.2.24:PLOT 325.0:DRAWR 0,399:PLOT 638.0:DRAWR 0. 
399:IF INTE -1 THEN HN-0 ELSE HN-3 

2110 PEN 1:MO=10:INK 0.26:INK 1.0:BORDER 24:FOR 1=1 TO tot 
2120 LOCATE lnte*I.23:PRINT CHRS(1*64) 

2130 LOCATE #1,1.1: PRINT #1.CHRS(1*64):":":LEFTS(NS(I).26):TAB(6 
8);"=";PES(I):"X": 
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zmo FOR U- 2-HN TO 6 + HN:PLOT I»INTE*8-^U-8.6il. 1: DRAWR O.POR»PES(I 
)*330/100:NEXT 

21U5 TOTPAN-TOTPAN+l:IF TOTPAN-23 TREN MO»10:GOSUB 2060 

2150 NEXT:GOSUB 2060:MO-0:TOTPAN=0 

2190 GOTO 3080 

3000 REM GRAFICO DE LINEA 

3010 FU-l:GOSUB ilOOO:MODE 2;C-1:PRINT CHR* ( 22 ): CHR$ (1): GOSUB 2000 
0:lnte-l-(tot<21):WINDOW #1. «2.79.2. Zíl: PLOT 325.0:DRAWR 0.399:PLO 
T 638,0:DRAWR 0.399 

3020 PEN l:ORIGIN 0.0: MO-10: INK 0.26:INK 1.0:BORDER 21l:FOR 1-1 TO 
tot 

3030 LOCATE lnte»I.23:PRINT CHR$(l*6a) 

30a0 LOCATE #1.1.1: PRINT #1. CHR$(i-6a):":":LEFTt(N*(I).26):TAB(6 

8) ;"-":PES(I):"X"; 

3050 X-I»INTE*8: Y-(POR*PES(I)»330/100)-<-6a: IF I-l THEN X1-X:Y1-Y:P 
LOT X.Y.1 

3055 :DX-X-Xl:DY-Y-Yl:DRAWR DX.DY.1:Xl-X:Yl-Y 

3060 TOTPAN-TOTPAN+1:IF TOTPAN.23 THEN MO»10:GOSUB 2060 

3070 NEXT:GOSUB 2060:MO-0:TOTPAN-0 

3080 PRINT CHRS(22):CHRt(0):IF IMP-1 THEN GOSUB 6000 
3085 LOCATE 15 .25:PRINT" @@ 

3090 INK 0.0:INK 1.2a:BORDER 9:GOTO 50 
3100 GOTO 6000 

aoOO CLS:C-3:GOSUB 20000:LOCATE 6.10:PRINT"QUIERE IMPRIMIRLO (S.N 
)?" 

aOlO IMP-0: 

4020 A$-INKEY$:IF A$-"" THEN 4020 

4030 IF UPPERt(A$)."S" THEN IMP -1 ELSE IF UPPERS(A$)<>"N" THEN S 

OUND 1.10.20:GOTO 4020 

4035 IF FU-1 THEN FU-0:RETURN 

4040 LOCATE 3.14:PRINT"QUIERE CONCEPTOS EN PANTALLA (S/N)":COPAN- 
0 

4050 At-INKEY»:IF Al-"" THEN 4050 

4060 IF UPPERKA$)-"S" THEN COPAN -2 ELSE IF UPPERI(Al)<>"N" THEN 
SOUND 1 . 30 .20:GOTO 4050 
4070 RETURN 

5000 REM GRAFICO DE PASTEL 

5010 FU-l:QOSUB 4000:MODE 2:C-1:PRINT CHRI(22);CHRI(1):GOSUB 2000 
0:WINDOW #1.54,79.2.24:PL0T 638.0:DRAWR 0.399:PLOT 400.0:DRAWR 0. 
399 

5020 PEN l:ORIGIN 0.0:MO-10:INK 0.26:INK 1.0:BORDER 24:DEG:FOR I- 
0 TO 360 STEP 10:A-SIN(I)*175»208:B-COS(I)*l60-200:IF I-O THEN XI 
-A:Y1-B:PL0T A.B.l 

5030 X-A-Xl:Y-B-Y1:DRAWR X.Y:Xl-A:Yl-B:NEXT 
5040 MU-0:FOR I- 1 TO TOT 

5050 A-208:B-200:MU-MU+PES(I):MU1-MU-(PES(I)/2):X-SIN(MU*3.6)*175 
+A:Y-COS(MU*3.6)*160*B:TX-SIN(MU1*3.6)*190+A-8:TY-COS(MU1*3.6)»18 
0+B*8:MOVE TX.TY:TAG:PRINT CHRI{64+I); 

5060 MOVE A.B:DRAWR X-A.Y-B:NEXT:TAGOFF 
5080 FOR I- 1 TO TOT: 

5090 LOCATE #1.1.1: PRINT #1.CHRI(1+64LEFTI(NI(I).14);TAB(6 

9) :"-":PES(I);"X": 

5100 TOTPAN-TOTPAN+1:IF TOTPAN.23 THEN MO-10:GOSUB 2060 
5110 NEXT:GOSUB 2060:MO-0:TOTPAN-0 
5120 GOTO 3080 

6000 LOCATE 2 . 25 :PRINT"PULSE PARA IMPRIMIR":SPC( 0 - 10 *(NIC- 0 ));:NI 
C-0:GOSUB 20000:CALL &BB06:LOCATE 2.25:PRINT SPC(19)::C-1:GOSUB 2 
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0000 

6010 CALL &A000,1 ' (o 0 según medida) 

6015 FOR 1= 1 TO 5000:NEXT ’BORRABLE 

6020 RETURN 

20000 REM ENMARCADO 

20010 ORIGIN 0.0:DRAWR 639.0.C:DRAWR 0.399:DRAWR -639.0:DRAWR 0.- 
399:RETURN 

60000 m=&A0O0:RESTORE 60050:MEMORY m-l:FOR i-1 TO 3:READ a$:l»LEN 
(a$) 

60010 FOR u- 1 TO 1 STEP 2: v.VAL("a"-<-MID$(a*, u. 2) ): POKE m.v:m=m+l 
60020 NEXT:NEXT:RETURN 

60050 DATA 0607FE0178C25ABB210700DD7E00FE002803210E002268A63E0032 
6AA62iaB00DD7E00FE00280123226BA6F3110000210000CDC9BBCD28BD3ElBCD2 
BBD3EmCD2BBD3EO6CD2BBD3E0DCD2BBD2l8F013E 

60060 DATA 1BCD2BBD3A6BA6CD2BBD3E7FCD2BBD3E02CD2BBD1100000607E5DD 
2A6CA63E00DD7700E5D5C5CDF0BBC1D1E13FFE00280137DDCB00162B3A68a6FE0 
E 

60070 DATA 20012B10E2E1DD7EOOCD2BBD133A6AA6FE002801137BFE8020C17A 
FE0220BC3E0DCD2BBD3E0ACD2BBDCD09BBFE09C8FE20C8EDÍIB68A63FED1127CFEF 
F2085FBC9 
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Generador de letras 


ICuántas veces habrá pensado en los fabricantes de ordenado¬ 
res por no incluir algunas letras como la ñ u otras especiales en 
el teclado!... Con este programa se acabaron los problemas, ya 
que usted podrá cambiar el dibujo de cualquier letra en la forma 
que desee. 

Lo primero que hará el programa es solicitar el carácter a partir 
del cual redefinir. Esto sólo debe hacerlo una vez, ya que en 
caso contrario le dará un error. Normalmente, suele ser suficien¬ 
te redefinir a partir de la A (código 65). Puede usted escribir A o 65 
indistintamente. 

Si quiere definir un carácter, debe seleccionar la primera opción. 
Una vez elegida la letra, y tras unos segundos, verá aparecer la 
letra en tamaño gigante en el centro de la pantalla. Con las 
teclas del cursor puede deplazarse por todo el carácter. Si pulsa 
espacio, quedará el cuadrado lleno; si pulsa la tecla TAB, 
quedará un espacio vacío. Debajo del dibujo verá como va 
quedando la letra redefinida, en su tamaño natural, individual¬ 
mente, en grupo y junto a otros caracteres anteriores y poste¬ 
riores, lo cual permite hacer un dibujo juntando varias letras 
contiguas, pudiéndose ver en conjunto. 


Cuando tenga su letra ya definida, pulse la tecla ENTER. 

Si quiere ver todos los caracteres, debe seleccionar la opción 
cuarta. 

Una vez generados los caracteres, deben ser guardados en cinta 
Q disco, podiendo ser cargados otra vez para modificar o añadir 
caracteres o para ser utilizados en otro programa. 

Si usted desea esto último, es decir, utilizar los caracteres en 
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otro programa, debe introducir al principio de su programa el 
segundo listado que hemos añadido aquí, con el nombre CAR- 
GALETRAS. (Puede omitir las líneas de la 10 a la 110.) Esta ruti¬ 
na permite cargar de cinta o disco las letras redefinidas. 


1 REM 

2 REM 

3 REM 
Ü REM 

5 REM 

6 REM 

10 MODE l:BORDER 9:o=3:GOSUB 20000;PEN 1;INK C,0;:NK 3,15;10CArE 
2.13;PRINT" REDEFINIR A PARTIR DEL CARACTER ";:7EN 2;:\P’JT "”.AS 

20 IF A$="" THEN CKR=65:GOTO ÜO 
25 IF a$-"0" THEN 35 

30 IF VAL(AÍ)=0 THEN CHR=ASC IA$) ELSE chR=VAL Ai) 

35 IF RE=’ THEN RE=0:RETURN 
37 lim=chr 

lio SYMBOL AFTER CHP: MEMORY 39999: FOR. 1= 1 TO lOiPEAD A;PCKE 39909 
■>I.A:NEXT : FOR 1 = 0 TO 15:READ A:POKE 10C2C ♦ I . A : NEXT; TIM 'APA''! 2R 
5. .3) 

a5 DATA 221.126.0.20 5.16 5.187. 3 a.0.0.201.221. 102.2.221.lio.0.205. 
117.187. 205 . 96 .187. 50 . 0 . 0.201 

50 SYMBOL 255 . 255 .255. 255 . 255 .255. ?55.255.255: SYMBCL 2 5a . 2 55. 12.? . 
12 . 8 . 128 . 128 . 128 . 128.128 
60 MODE l:c=3:GOSUB 20000 
70 LOCATE 6 . 6 :PEN 1;PRINT"ELIJA OPCION:" 

80 LOCATE 9.10:P£N 2;PP.INT"1) REDEFINIR CARACTERES" 

90 LOCATE 9.12:PRINT"2) CARGAR CARACTERES GRABADOS" 

100 LOCATE 9.la:PRINT" 3 ) GRABAR CARACTERES" 

105 LOCATE 9.16:PRINT"a) VER TODOS LOS CARACTERES" 

lio LOCATE 6.20:PEN 3:PRINT"PULSE NUMERO CORRESPONDIENTE" 

120 A$=INKEY$;IF A$="" THEN 120 

130 A=ASC (A$)-a 8 :IF A< 1 OR A >a THEN 120 

lao ON A GOTO 200.aoo. 500 .600 

200 CLS:C=3:GOSUB 20000:PEN l:LOCATE 6.13:PRINT"OUE CARACTER DESE 
A REDEFINIR "::PEN 3:INP'-'T "". Aí: RE = 1: GOSUB 20:IF CHR<LIM THEN SO 
UND 1 . 30 .30:GOTO 200 

210 NC=CHR;CLS:C=3:GOSUB 20000:G03U3 1000:GOSUB 1900:GOSUB 2000 

220 IF CARAC«(NC.O)=0 THEN CARACXÍNC.0)=NC:NUMCAR=NUMCAR»1 

230 FOR 1 = 0 TO 7:CARACXÍNC. 1 * 1 )=VLX(I):NEXT:GOTO 50 

aoo CLS:PEN l:C=2:GOSUS 20000:LOCATE 6.10:INPUT "NOMBRE DEL FICHE 

RO ".N0M$:N0M$=LEFTS(N0M$.8) 

aiO PEN 2;LOCATE 6.15:PRINT"PULSE PLAY Y DESPUES UNA TECLA":CALL 
RBB06' NO NECESARIO EN DISCO 
a20 noir.í = "!"«nom$:OPENIN NOM* 
a25 INPUT #9.LIM:INPUT #9.NUMCAR 

a30 FOR 1= 1 TO NUMCAR:INPUT #9.NC:INPUT #9.A.B.C.D.E.F.G.H:SYMBO 
L NC. A.B.C.D.E. F.G.H:NEXT 
aao CLOSEIN 
a 50 GOTO 50 

500 CLS:PEN l;C=2:GOSUB 20000:LOCATE 6.10;INPUT "NOMBRE DEL FICHE 
RO ".NOM$;NOMÍ=LEFTS(NOM*,8) 
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510 PEN 2:LOCATE /1.15: PRINT"PULSE PLAY.REC Y DESPUES UNA TECLA":C 
ALL &BB06’ NO NECESARIO EN DISCO 
520 nom$ = "!"-norn*:OPENOUT NOM$ 

525 PRINT#9.UIM:PRINT#9.NUMCAR 

530 FOR 1= 0 TO 255:IF CARACX(1.0 ) =0 THEN 560 

5/iO PRINT#9. I: FOR U= 1 TO 8: PRINT#9. CARACXÍI, U ): NEXT 

560 NEXT 

570 CLOSEOUT:GOTO 50 

600 CLS:PRINT:PRINT:PRINT:PRINT:PEN 1: FOR 1= 32 TO 255:PRINT CHR 
${I):" NEXT:LOCATE 15.23:PEN 3:PRINT"PULSE TECLA":CALL aBB06:G 
OTO 50 

1000 REM DIBUJO DEL CARACTER 

1020 CALL ÜOOOO. NC: AD>PEEK( 0 )-256»PEEK( 1): FOR I- 0 TO 7:VLX(I)-=PE 
EK (I*AD):VL$(I)=BIN$(VLX(I).8):NEXT 

1030 FOR 1=0 TO 7:TR$=VL$(I):VL$(I)="":FOR U=1 TO 8:IF MID$(TR*.U 
.1)="1” THEN B$=CHRS(255) ELSE B$=CHR$(25Ü) 

1035 VL$(I)=VL$(I)-B$;NEXT:NEXT 

1050 INK 1,0:PEN 1:FOR 1=0 TO 7:LOCATE 17.6-I:PRINT VL$(I):NEXT:G 
OSUB 1500:PEN 2:LOCATE 8.10:PRINT NC:LOCATE 31.10:PRINT CHR$(nc): 
INK 1.2U:GOSUB l800:RETURN 

1500 PLOT 256.190:DRAWR 128.0.1:DRAWR 0.123:DRAWR -128.0:DRAWR G. 
-128:RETURN 

1800 IF nc< 32 THEN RETURN 

1810 PEN 3:LOCATE 17.17:PRINT STRINGÍí8.nc):PEN 3:LOCATE 19.15:PF 
INT CHRSÍnc):" ":CHR$(nc I 

1820 PEN l:FOR 1= 17 TO 2a:f=nc-(21-1):IF f< 32 THEN l8ao 
1830 LOCATE 1,19:PRINT CHRt(f): 
l8ao NEXT:RETURN 

1900 LOCATE 6.22:PEN 2:PRINT"tecla de espacio para marcar":LOCATE 
6,23:PEN 1:PRINT"tecla TAB para borrar":PEN 3:LOCATE 6.2U:PRINT" 
tecla de ENTER para terminarRETURN 
2000 A = 17:B = 6:m* = CHRí(255):eí = CHRS(25'l):GOTO 2020 
2010 LOCATE c.d:PEN 1:PRINT vieJoS 

2020 CALL a0020. a. b: vie,1o$ = CHR$( PEEK( 0 )): LOCATE a.b:PEN 2:PRINT m 
$:c=a:d=b 

2030 a$=INKEY$:IF aS="" THEN 2030 

20¿0 IF aí = " " THEN vie.1 o$=m$: GOSUB 2600:GOTO 2010 

2050 IF aS="" THEN vlejo$=eí:GOSUB 2700:GOTO 2010 

2060 IF a$=CHRí(13) THEN LOCATE a.b:PEN 1:PRINT vie.1 oS: RETURN 

2070 IF aS=CHRS(2ao) AND b>6 THEN b=b-l:GOTO 2010 

2080 IF a$=CHRS(2ai) AND b<13 THEN b=b*l:GOTO 2010 

2090 IF a$=CHRS(2a2) AND a>17 THEN a=a-l:GOTO 2010 

2100 IF a*=CHR$(2a3) AND a<2U THEN a=a»l:GOTO 2010 

2110 SOUND 1.30.20:GOTO 2030 

2600 vlX(b-6)=vlX(b-6) OR 21I29-8I:POKE ad»b-6.vlX(b-6):GOTO l800 
2700 vlX(b-6)=vlX(b-6 ) AND (255- 2i'2a-a)):POKE ad-b-6.vlX(b-6):GO 
TO 1800 

20000 REM ENMARCADO 

20010 ORIGIN 0.0: DRAWR 639.0 . C: DRAW.R 0.399: DRAWR -639.0: DRAWR 0.- 
399:RETURN 
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10 REf* **** CARGALETRA3 *»** 

aO REK 

30 REM 

ÜO REK 

50 REM 

60 REM 

70 REM Incorpore esta corta rutina al 
principio de cualquier programa 
si desea utillEar las letras de¬ 
finidas con el generador de le¬ 
tras 

80 REM 

90 REM (Mo hace falta que copie las 
lineas de la 10 a la 1101 

100 REM 
lio REM 

120 nora$ = "." ' (aqui debe poner 

el nombre del fichero a cargar) 

130 OPENIN NOM$ 

lao INPUT #9. LIM: INPIJT #9.NUMCAR 
150 SYMBOL AFTER LIM 

160 FOR 1= 1 TO NUMCAR:INPUT #9.NC;INPUT 
#9.A.B,C,D.E.F.G.H: SYMBOL NC. A. B. C. I . E. 
F.G.H:NEXT 
170 CLOSEIN 








* 
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Una alegría para los amantes de la composición musical y una 
carga para los oídos de los familiares: un sencillo pero práctico 
órgano es el resultado de este programa. 

Antes de entrar en detalles sobre el programa hay que hacer 
una importante observación: el programa redefine totalmente la 
parte superior del teclado. Por este motivo, si el programa se in¬ 
terrumpe por un error de sintaxis o por otra causa, observará 
que las teclas superiores no le responden como siempre, lo cual 
impide hacer cualquier operación con el ordenador. Para solu¬ 
cionar esto se ha redefinido la tecla de función 0 como una lla¬ 
mada o una rutina del Amstrad que restaura el valor original del 
teclado. Es decir, si le sucede lo antes citado, pulse esta tecla 
una o dos veces, y verá como las teclas vuelven a funcionar. De 
todas formas, no estaría de más que, una vez escrito su progra¬ 
ma, lo grabe en cinta o disco antes de probarlo, por si acaso... 

Una vez lo ejecute, seleccione la opción 1 del menú, y verá apa¬ 
recer ante usted un teclado musical, con dos octavas completas 
y con unas letras que son las que hay que pulsar para cada 
nota. Si pulsa dicha letra junto a la tecla CTRL (control en el 
6128), obtendrá la nota de dos octavas inferiores, y si la pulsa¬ 
ción la hace con SHIFT, obtendrá la nota correspondiente a dos 
octavas por encima. De esta manera se dispone en realidad de 
seis octavas completas. 

Si pulsa cualquiera de las teclas numéricas de función, de la 1 a 
la 9, vera que el sonido cambia sustancialmente. Cada una de 
estas teclas conecta un instrumento determinado, apareciando 
en pantalla el número de envolvente seleccionado. 

Asimismo, si pulsa la tecla ENTER del teclado numérico separa¬ 
do, obtendrá un efecto DELAY, y si pulsa la tecla del punto de¬ 
cimal de t. separado, obtendrá un efecto de vibrato. Para des- 
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conectar estos efectos basta con pulsar nuevamente la tecla 
correspondiente. Cabe resaltar que ambos no pueden existir si¬ 
multáneamente. La combinación de estos efectos, con las en¬ 
volventes, hace que se puedan obtener sonidos de gran calidad. 
Pruébelo y experimente. 

En todo momento aparece un cuadro rojo sobre la última tecla 
pulsada. Para terminar, pulse la tecla de la barra inversa. 

Otra de las opciones del menú es la de memorizar una canción. 
Funciona igual que en el apartado anterior, pero con la diferen¬ 
cia que la canción interpretada es guardada en la memoria. 
Puede archivar hasta 5.000 notas. Si quiere archivar una pausa, 
pulse la barra de espacio. Si quiere borrar una nota, pulse la 
tecla DEL. 

Una vez memorizada la canción, puede oírla con la opción ter¬ 
cera del menú, con la particularidad de que usted puede in¬ 
terpretar notas simultáneamente, lo cual le da la posibilidad de 
hacer acordes. Las notas memorizadas aparecerán como un 
cuadrado negro. Las suyas, como uno rojo. 

Puede guardar esta canción memorizada con la quinta opción, 
lo que le permitirá recuperarla en otra ocasión. 

Deseamos que se divierta mucho interpretando sus melodías 
preferidas... 


1 REM ****** ORGANO ****** 

2 REM 

3 REM 
a REM 

5 REM 

6 REM 

7 REM 

10 re-=0:CALL &BBOO:MODE 1:INK 0.0:BORDER a:PEN 1:SPEED WRITE 1:IN 
K l.PttrlNK 2.20:GOSUB 7500' Inlciallzaclon 
20 o=3:GOSUB 20000:LOCATE 6.Ü:PRINT"ELIJA OPCION: 

25 REM MENU PRINCIPAL 

30 PEN 2:LOCATE 8.7:PRINT"1) INTERPRETAR MUSICA" 

UQ LOCATE 8.10:PRINT"2) LEER CANCION DE CINTA/DISCO 
50 LOCATE 8.13:PRINT"3) OIR CANCION GRABADA 
60 LOCATE 8.16:PRINT"tt) MEMORIZAR CANCION 
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65 LOCATE 8.19:PRINT"5) GRABAR CANCION EN CINTA/DISCO 
70 PEN 3:LOCATE 6.22:PRINT"pulse numero adecuado" 

80 at.INKEY$:IF a$«"" THEN 80 
85 REM OPCION DESEADA 

90 A«VAL (A$):IF A< 1 OR A>5 THEN SOUND 1.RND»30-10.10:GOTO 80 

100 REM DESVIO SEGUN OPCION 

lio ON A GOTO 1000.2000.3000.11000.5000 

1000 REM canción simple 

1010 QOSUB 15000:GOSUB 13000:GOSUB H000:SPEED KEY 7. 5: w=20: v=l 5: 

ev-1 

1030 a$-INKEYÍ:IF a*-"" THEN 1030 

loao IF at-CHRt(255) THEN FOR u*= 1 TO w:NEXT:IF re = 2 AND tnot< 5 
000 THEN nota*(tnot).100:tnot=tnot*l:G0T0 1030 ELSE GOTO 1030 
10115 IF aS-CHRt(230) THEN IF tnot> 1 THEN tnot = tnot-l: LOCATE 2.2: 
PRINT"nota nura ":tnot ELSE GOTO 1030 
1050 IF a$-"fl" THEN 10 

1100 a-ASC(a*):IF a< 1 OR a> 72 THEN GOSUB 7000:GOTO 1030 
1110 SOUND 1,noX(a),w.V.ev.et:IF re=2 THEN tnot=tnot+l:notaHltnot 
)-a:PEN 1:LOCATE 2.2:PRINT"nota num ":tnot:IF tnot=5000 THEN 10 
1112 IF a>2a THEN a-a-2U:GOTO 1112 

1115 y-0:RESTORE 1900:FOR g- 1 TO 10 : READ b.c:IF a=b THEN pn = 2:.y 

-13:«-ll:x-c:ch»138 

1117 NEXT :IF yOO THEN 1130 

1120 RESTORE 1910: FOR g* 1 TO 1/t : READ b.c:IF a=b THEN pn = l:y=l8: 

g-15:x-c:eh.233 

1125 NEXT 

1130 IF xlOO THEN LOCATE xl.yl:PEN p:PRINT CHR$ (lil3 ): P = Pn ELSE 
p-pn 

nao LOCATE x.y:PEN 3:PRINT CHR$ ( ch): xl=x: yl=y 
1150 IF re-1 THEN RETURN 
1160 GOTO 1030 

1900 DATA 2.2.a.5.7.11.9.la.11.17.la.23.16.26.19.32.21.35.23.38 

1910 DATA 1.1.3. a.5.7.6.10.8.13.10.16.12.19.13.22.15.25.17.28.18. 
31.20.3a.22.37.2a.ao 

2000 IF nomt-"" THEN GOSUB 10000:GOSUB 11000 
2010 GOTO 10 

3000 REM canción automatice 

3005 GOSUB 15000:GOSUB ia000:GOSUB 13000 

3010 re-l:v.l5:w-20:FOR s- 1 TO tnot:a-NOTaXís):IF a-lOO OR a-0 T 
HEN FOR z-1 TO w:NEXT:GOTO 3100 ELSE SOUND 2.noX(a).w.v.ev.et:FOR 
z-1 TO w:NEXT 

3012 IF a>2a THEN a-a-2a:GOTO 3012 

3015 y2-0: RESTORE 1900:FOR g- 1 TO 10 :READ b.c:IF a-b THEN pn2- 
2:y2-9:g-ll:x2-c:ch.l38:pk-l 
3017 NEXT :IF y2<>0 THEN 3030 

3020 RESTORE 1910:FOR g- 1 TO la :READ b.c:IF a=b THEN pn2-l:y2-l 
6:g»15:x2-c:ch.231:Pk-2 
3025 NEXT 

3030 IF X3O0 THEN LOCATE x3.y3:PEN p2:PRINT CHR$(ia3):p2-pn2 EL 
SE p2=pn2 

30ao LOCATE x2.y2:PEN pk:PRINT CHR$(ch):x3“X2:y3=y2 
3050 at-INKEYt:IF at-"" THEN 3100 

3060 a-ASC (a$):IF a<l OR a> 72' THEN GOSUB 7000:GOTO 3100 
3070 GOSUB 1110 
3100 NEXT:GOTO 10 

aoOO CLEAR:DIM notaX(5000):re=2:GOTO 1000 
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4999 STOP 

5000 REM GRABACION DE DATOS 
5010 IF NOM»-"" TREN GOSUB 10000 
5020 GOSOB 12000¡GOTO 10 

6000 LOCATE 11,22:PRINT"flchero desconocido":FOR u« 1 TO 2000:NEX 
T:RUN 10 

7000 a-a-&80:IF a>9 OR a< 1 THEN 7050 

7010 ev.a:RESTORE 7100:FOR sh-1 TO a:READ w.si.s2.v:NEXT:SPEED KE 
Y al.82:LOCATE 25.2:PEN 1:PRINT"ENVOLVENTE":EV :RETURN 
7050 IF a-10 THEN et-ABS(et-l) 

7060 IF a-11 THEN et=ABS(et-2) 

7080 IF ET-1 THEN LOCATE 25.3:PEN 3:PRINT"VIBRATO" ELSE IF ET=2 T 
HEN LOCATE 25.3:PEN 3:PRINT"DELAY" ELSE IF ET< 1 THEN PEN 3:LOCAT 
E 25.3:PRINT" " 

7090 RETURN 

7100 DATA 20.10.5.15.15.15.1.15.30.20.1.15 .30.20.5.10.50.20.3.0. 
40,20.1.2.35.20,1.0.20.20.1.0.30.20.1.15 

7500 ENT -1,1.2.3.1.-2.3:ENT 2.10.0. 1.1.1.1.2.-2,2.1.3.2. 1.-2.2: E 
NV 3.15.-1.4 

7510 ENV 2.15.-1.2:ENV 4.5.1.3.5.-1.3:ENV 5.15.1.1.15.-1.1.15.1.1 
.15.-1.1.15.1.1:ENV 6.13.1.2:ENV 7.15.1.1.7.0.1.7.-1.1.6.-1.2.1.- 
1.3: ENV 8.15.1.1.15.-1.1: ENV 9.5.-1.2. 5.1.2. 5.-1.2. 5.1.2.15.-1.1 
7600 RETURN 

10000 REM NOMBRE DEL FICHERO 
10005 IF NOMtO"" THEN RETURN 
10010 CLS:C-3:GOSUB 20000 

10020 PEN 1:LOCATE 5.13:PRINT"NOMBRE DEL FICHERO?"::PEN 2:PRINT" 

It 

10030 LOCATE 25.13:INPUT "". NOM$:IF LEN (NOM$)>8 OR NOM»-"" THEN 
PRINT CHR»(7):GOTO 10020 
10040 NOMt-"!"+NOM$ 

10050 RETURN 

11000 REM LECTURA DE DATOS 

11003 ' ON ERROR GOTO 6000 ' solo para amstrads de disco 
11005 IF LOA-1 THEN RETURN ' DATOS YA LEIDOS 

11010 CLS:C=2:GOSUB 20000:PEN 1:LOCATE 3.13:PRINT"PULSE PLAY EN E 
L CASSETTE Y UNA TECLA":CALL 8BBO6 ' sobra en Amstrad de disco 
11020 OPENIN nom$:INPUT #9.tnot:IF dlme*0 THEN DIM notaX(5000) 
11030 FOR i- 1 TO tnot 
11040 INPUT #9.notaX(i) 

11050 NEXT 

11080 CLOSEIN:LOA-1 

11090 RETURN 

12000 REM GRABACION DE DATOS 

12010 CLS:C-2:GOSUB 20000:PEN 1:LOCATE 6.11:PRINT"PULSE PLAY y RE 

C EN EL CASSETTE "¡LOCATE 11.14:PRINT" Y UNA TECLA DESPUES":CALL 

&BB06:' sobra en Amstrad de disco 

12020 OPENOUT nom*: PRlNT<r9. tnot 

12030 FOR i- 1 TO tnot 

12040 PRINT#9.notaX(i) 

12050 NEXT 

12080 CLOSEOUT :LOA-1 
12090 RETURN 

13000 REM REDEFINICION DE TECLAS ¡CUIDADO!!! 

13010 KEY 128,"CALL aBB00"+CHR*(13): REM fundamental !!!! 

13020 RESTORE 13100:FOR i- 1 TO 24:READ a: KEY DEF a. 1. i. i*24. ii-48 
:NEXT 
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13030 KEY DBF 57.0,0.0.0:KEY DEF ttl.0.0,0.0:KEY DEF 32.0.0 .0.0:K 
EY DEF *7.1.255:KEY DEF 79.0.230,230,230 
I30AO FOR I>&81 TO a8B:KEY I,CHR*(1):NEXT 
13090 RETURN 

13100 DATA 68 , 6 #, 67 . 65 . 59.58.56.50.a9. 51 .<i 8 ,a 3 ,a 2 .ao. 35 . 33 . 3 U. 27 . 
25.26,2a,17.16,18 

laooo REM ADJUDICACION DE NOTAS 

laoio IF dlme-0 TREN <llme-l:DIM NO*( 72 ): RESTORE iaiOO:FOR I-l TO 
2a:READ A:NOX(I)-A:NO*(I«2a)-A/a:NO*(I.^a8)-A*a:NEXT:RETURN ELSE R 
ETURN 

laioo DATA a 78 ,asi.a26,ao2,379.358,338.319.301,28a.268.253.239.22 
5 .213. 201 ,190. 179 .169.159.150.ia 2 ,13a .127 

15000 REM DIBUJO DEL TECLADO 

15005 MODE 1 :BORDER a:INK O.atINK 1,26:INK 2.0;INK 3.6 
15010 FOR I-O TO 639 STEP 2!PLOT I.100.1:DRAWR 0.190:NEXT 
15020 FOR 1-32 TO 639 STEP a8:IF 1-128 OR 1-320 OR I-a6a THEN LI- 
190 ELSE LI-70 

15030 PLOT I,100,0:DRAWR O.LItNEXT 

150 ao FOR 1-16 TO 618 STEP a 8 :IF 1-112 OR I-30a OR I-aa8 THEN 15 

060 

15050 FOR U-0 TO 31:PLOT I+U,170,2:DRAWR 0,120:NEXT 
15060 NEXT 

15070 PEN l:A«-"s QWERTYUIOPÍ [ EN":LOCATE 
1,22:PRINT A» 

I508O At-" 12 a 56 89 -i DEL":LOCATE 1 , 5 :PR 

INT A$ : RETURN 

20000 REM ••• subrutlna de enmarcado 

20010 ORIOIN 0,0 

20020 DRAWR 639.O.c 

20030 DRAWR 0,399 

200 ao DRAWR - 639.0 

20050 DRAWR 0.-399 

20060 RETURN 


18 488 89 -4 8K1< 
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Éste es un programa adecuado para las señoras y señoritas de la 
casa. 

Debe usted introducir la edad, talla y constitución y el programa 
la dirá el peso aproximado de la persona que reúne esas condi¬ 
ciones, con un ligero margen de error por exceso y por defecto. 
Este programa es orientativo y la edad mínima es de diez años: 
para edades menores, consúltelo a su pediatra. 


1 REM ***** PESO IDEAL ****** 

2 REM 

3 REM 
¡1 REM 

5 REM 

6 REM 

10 MODE l:BORDER 15:c = 2:INK 1Í1.15:INK 15.Í»:INK 5.3:INK 0.0:INK 3. 
26:c=2:GOSUB 20000 

20 LOCATE 6.6:PEN 1:PRINT"EDAD "::PEN 2:INPUT "".A$:E=VAL (A$):I 
F E< 10 THEN LOCATE 10.13:PEN 3:PRINT"Con3Ultelo al Pediatra":FOR 
1= 1 TO 2500:NEXTiGOTO 10 

30 IF E> 100 THEN LOCATE 3.13:PEN 3:PRINT"S1 tiene esa edad.felíc 
ldades.no hace": LOCATE 3. 15: PRINT"que controle su peso": FOR u-= 1 
TO 3500:NEXT:GOTO 10 

lio LOCATE 6. 10: PEN 1: PRINT"TALLA (en cm. )"::PEN 2:INPUT "".A$:T = V 
AL (A*):IF T<1 THEN SOUND 1.20.50:GOTO ÜO 

50 IF T> 230 THEN LOCATE 2.15:PEN 3:PRINT"Preguntelo a su entrena 
dor de baloncesto":FOR u= 1 TO 3500:NEXT:GOTO 10 

60 LOCATE 6.111: PEN 1:PRINT"SU CONSTITUCION ES:": PEN 3: LOCATE 6.16 
:PRINT"Flna (1): Media (2): Fuerte (3)" 

70 aí=INKEYÍ:IF aí="" THEN 70 

80 cons-ASC(a$)-a8:IF cons<l OR cons >3 THEN SOUND 1,15.20:GOTO 7 
0 

90 LOCATE 6. 18: PEN ,1: PRINT"SEXO (H.V)":PEN 2 
100 A$=INKEYt:IF AS="" THEN 100 

lio AÍ=UPPER$(AÍ):IF A*<>"H" AND A$<>"V" THEN SOUND 1.1000.20:GOT 
0 100 

120 FS = 0.8-(A$ = "V")*0. 1 

130 CLS:GOSUB 20000:LOCATE 10.8:PEN 1:PRINT"SU PESO IDEAL ES DE:" 

lao pX=(t-100+cons+(e/20))*f3 

150 LOCATE 17.12:PEN 3:PRINT pX:"kg" 

160 LOCATE 6.15:PEN 2:PRINT"Puede oscilar entre"pX-cons:"o":pX*co 
ns:"Kg." 

170 LOCATE 15.2a:PEN 1:PRINT"PULSE TECLA":CALL SBB06:RUN 10 
20000 REM ENMARCADO 

20010 ORIGIN 0.0:DRAWR 639.0.C:DRAWR 0.399:DRAWR -639.0:DRAWR 0.- 
399:RETURN 
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Millones a gogó 


Se acabó el levantarse pronto para ir a atrabajar. Se acabó el 
preocuparse por las letras mensuales del piso, frigorífico, co¬ 
che, etc. 


Con el presente programa y algo de suerte puede usted hacerse 
millonario. 


El programa genera dos tipos de quiniela, uno aleatorio y otro 
seudológico. Usted debe seleccionar una de las dos opciones. 
En el caso de que sea la segunda, debe introducir las clasifica¬ 
ciones de los equipos, ya que el ordenador las tendrá en cuenta 
para emitir su pronóstico, interviniendo en esta modalidad un li¬ 
gero porcentaje de generación aleatoria. 


Esperamos que tenga mucha suerte, y sobre todo no se des¬ 
anime... 


1 REM **» MILLONES A GOGO *** 

2 REM 

3 REM 
Í1 REM 

5 REM 

6 REM 

9 SYMBOL AFTER 91:SYMB0L 92. lííl. 0, 198.230.2íl6.222.206.0: SYMBOL 93 
. 2a. 0.26.2Ü. 24.2il. 26: SYMBOL 91.8.8.8.8.8.8.8.8: DIM EQA(14):DIM EQ 
B (14):DIM RES$(14).resl$ (14):INK 0.0 

10 MAP=0:MODE 1:PEN IrBORDER 10:C=3:GOSUB 20000:ENV 1.2.-1,3.4.-1 
. 4.5.-1. 5.3.-1.6.1.-1.7: FOR !=■ 1 TO 14: resl$( 1) = NEXT 

20 LOCATE 6.6:PRINT"ELIJA OPCION:" 

30 LOCATE 9.11:PEN 2:PRINT"1) QUINIELA AL AZAR 

40 LOCATE 9.15:PRINT"2) QUINIELA PROBABLE 

50 LOCATE 6.20:PEN 3:PRINT"PULSE NUMERO CORRESPONDIENTE 

60 AÍ-INKEY$:IF A$="" THEN A=RND*1:J=J*1:IF J>50 THEN J=0:SOUND 1 

.RND*90*10.50.15.l:GOTO 60 ELSE GOTO 60 

70 A=ASC (A$):IF A< 49 OR A > 50 THEN FOR 1= 25 TO 10 STEP -1:S0 
UND 2.I.7;NEXT:GOTO 60 

80 IF Aí="2" THEN op=0:GOTO 1000 ELSE op=l 

90 CLS::C=3:GOSUB 20000:LOCATE 3.4:PEN 3:PRINT"PULSE UNA TECLA PA 
RA VER LA QUINIELA" :CALL 8BB06 :IF RE= 1 THEN RE=0:GOT0 140 
100 REM GENERACION ALEATORIA 

lio FOR 1= 1 TO 14:A=RND*100:IF A<60 THEN RES$(I)="1 ":GOTO 130 
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Millones a gogó 


120 IF A<90 THEN RES$(I)=" X " ELSE RES$(I)=" 2" 

130 NEXT 

lUO REM IMPRESION DE LA OUINIELA 

150 FOR 1= 1 TO ia;LOCATE 7-3*(op-1).1*7:PEN 1:PRINT"PART1D0 NUM. 

SPC(0-(I<10)):I::PEN 2;PRINT" t ”:RESt(I):" [ "¡reslí(i)::IF o 
p-1 THEN PRINT ELSE PRINT" [" 

155 NEXT 

160 PEN 3:LOCATE 15.2íl: PRINT"PULSE TECLA":CALL «BB06 
170 GOSUB 2000:GOTO 10 

1000 C*3:CLS:GOSUB 20000:LOCATE 6.6:PEN 1:PRINT"INTRODUZCA PUNTOS 
DE LOS EQUIPOS:" 

1010 FOR I* 1 TO 1Ü:PEN 2:LOCATE 12.9:PRINT"PARTIDO":I 
1020 LOCATE 6.13:PEN 1:PRINT"EQUIPO DE CASA. PUNTOS":LOCATE 

21i.l3:PEN 2:INPUT "".AÍ:IF A$»"" THEN SOUND 1.10.10:GOTO 1020 
1025 IF VAL (A*)=0 AND A$<>"0" THEN SOUND 1,10,10:GOTO 1020 
1030 EOA(I)=VAL(AÍ): IF EQA(I)> MAP THEN MAP-EO.A(I) 
lOÜO LOCATE 6.16:PEN 1:PRINT"EOUIPO VISITANTE PUNTOS":LOCATE 

2a.l6:PEN 2:INPUT "".A$:IF A*-"" OR VAL (A$)-0 THEN SOUND 1.10, 
10:GOTO loao 

1050 EOB(I )=.VAL( AS ) : IF EQB(I)> MAP THEN MAP-EQB(I) 

1060 NEXT 

1070 REM GENERACION DE QUINIELA 

1080 FOR 1= 1 TO ia:EOA(I)=EQA(I)/MAP*100:EQB(I)-EQB(I)/MAP*100:N 
EXT 

1090 FOR 1= 1 TO la 

1100 a=50:b=30:c = 20:COC=(EO,A{I)-EQB(I))/6:XX«a8-(ABS(COC)/0.5):Xl 
-26*(COC/0.5):Yl=26-(COC/0.5) 

1110 IF XX< 0 THEN ZZ*XX:GOSUB l800:GOTO 11^0 

1120 IF Xl< 0 THEN ZZ»X1:G0SUB l800:GOTO 1110 

1130 IF Yl< 0 THEN ZZ*Y1:G0SUB l800:GOTO 1110 

nao TTT=X1*Y1»XX:XX=XX/TTT*100:X1-X1/TTT*100:Y1.Y1/TTT»100 

1150 XlX*Xl*l6.7:XXX-XX-3.3:YlX-Yl-13.3 

1160 MMU=0:IF X1\>MMU THEN MMU-=X1*: RESS {I)-"1 " 

1170 IF XXX>MMU THEN MMU-XXX:RESt(I)-" X " 

1180 IF Y1X>MMU THEN RESS(I)*" 2" 

1190 IF XXX< 0 THEN XXX-l 
1200 IF X1X< 0 THEN X1X»1 
1210 IF Y1X< 0 THEN YlX-1 
1230 TT*XX%+Y1X+X1X 

IZao RX-RND»TT*1:IF RX<-X1X THEN RES1$(I)-"1 ":GOTO 1260 
1250 IF RX<*X1X*XXXTHEN RES1S(I).".X " ELSE RES1$(I)-" 2" 

1260 NEXT 

1270 RE*l:GOTO 90 

1800 ZZ-=ABS( ZZ ): X1*X1*ZZ: Y1»Y1*ZZ: XX-XX + ZZ: RETURN 
2000 CLS:C=2:GOSUB 20000:INK 2.6.0:LOCATE 7.11:PEN 1:PRINT"SI GAN 
A MILLONES, NO LO DUDE:": PEN 2: LOCATE 15. 1<1: PRINT" ]]] AVISEME!!!": F 
OR U- 1 TO a:FOR I- 60 TO 10 STEP -1:SOUND 1,I,3:NEXT:NEXT:INK 2. 
23:RETURN 

20000 REM ♦** subrutlna de enmarcado 

20010 ORIGIN 0.0 

20020 DRAWR 639.O.c 

20030 DRAWR 0,399 

200ao DRAWR -639.0 

20050 DRAWR 0,-399 

20060 RETURN 
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Lotería primitiva 


Por si no ha conseguido suficientes ganancias con el programa 
de quinielas, le brindamos la oportunidad de incrementar éstas. 
Para ello, el presente programa genera un boleto de lotería pri¬ 
mitiva de forma totalmente aleatoria. 


Pese a su simplicidad, conviene observar los efectos conse¬ 
guidos en la presentación de la pantalla combinando color y so¬ 
nido. 


Mucha suerte... 


10 REM ««««»««««««»«««»*««»»*««» 

20 REM 
25 REM 
27 REM 

30 REM *** LOTERIA PRIMITIVA »»» 

50 REM 
70 REM 
80 REM 

90 REM «««**»****»»««»«««*«*«*«* 

100 REM 
lio REM 

120 ENV 1,15.-1.5 

130 INK 0.0:CLS:C-3:GOSUB 280:LOCATE 5.13:PEN 1:BORDER 15:PRINT"P 
ULSE TECLA PARA VER LA LOTERIA" 

140 A$-INKEY$:IF A$-"" TREN SOUND RND*3+1. RND»100->-10.5: GOTO 140 
150 CLS:C-2;GOSUB 280:DIM A*(100) 

160 PEN l:rOR I- 1 TO 7:IF 1-7 THEN LOCATE 5.15:FOR V- 1 TO 500:N 
EXTtSOUND 2.RND*50+10,100.15.1:PEN 3:PRINT"NUMERO COMPLEMENTARIO: 

"::PEN 2 ELSE LOCATE 5*1.11 
170 FOR U- 25 TO 70 

180 SOUND 1,1000.1.15.0.0.1:SOUND 1.500,1,15.0.0.3 
190 FOR F-1 TO U:NEXT 
200 NEXT 

210 NUMX-RND»48+1:IF AX(NÜMX)-1 THEN 210 ELSE AX(NUMX)-1:PRINT NU 
MX 

220 FOR J-1 TO 400:NEXT 
230 NEXT 

240 FOR I-lOO TO 10 STEP -l:SOUND 1,1,3:NEXT:FOR 1 = 10 TO 100:SOUN 
D 1.1,5: NEXT 

250 LOCATE 15,22:PEN 2:PRINT"PULSE UNA TECLA" 

260 At-INKEY»:IF Al-"" THEN N=N+1:IF N-15 THEN SOUND 1,RND*50+5.1 
00.15.1:M-0:GOTO 260 ELSE GOTO 260 
270 PRINT CHRt(7):RUN 


53 



Lotería primitiva 


28o PLOT 0.0,C:DRAWR 639.0:DRAWR 0.399:DRAWR -639,0:DRAWR 0.-399: 

RETURN 

290 REM 

300 REM 


310 REM Si sana, envíenos una propina 
320 REM 

330 REM los autores 
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Volcador de pantallas 


Finalmente describimos aquí un cargador para la rutina volcado¬ 
ra de pantallas que aparece en el programa de gráficos. Esta ru¬ 
tina puede usted utilizarla para cualquier programa en que desee 
imprimir la pantalla entera en papel. La pantalla puede estar en 
cualquiera de los tres MODE posibles. 

Para ello puede incorporar este programa al suyo, añadir la 
línea; 


y hacer un GOSUB 60000, o bien hacer correr el presente 
programa, con lo cual la rutina quedará en la memoria y usted 
podrá borrar este cargador en Basic. 


Para utilizarla hay que hacer CALL &AOOO,0 si se desea que 
ocupe todo el folio, o bien CALL &A000,1 si se desea que sólo 
ocupe la mitad. 

La rutina empieza en la posición &A000 y ocupa unos 200 by- 
tes. Si usted precisa esa zona de memoria para otros propósi¬ 
tos, puede implantar la rutina en cualquier otro sitio de la me¬ 
moria, cambiando el valor de la variable M en la línea 60000. 

Si desea interrumpir una impresión, no lo intente con la tecla 
ESC, ya que no obtendrá ningún resultado. Debe pulsar la barra 
de espacio, hasta que la impresora se detenga al final de una 
línea. 

Respecto a la rutina propiamente dicha, no vamos a describirla 
aquí, ya que el código máquina no es el propósito de este libro. 
(Cualquier persona que tenga especial interés en su funciona¬ 
miento puede dirigirse al autor.) 
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Volcador de pantallas 


A pesar de ello, sí cabe citar que la aparente complejidad de 
dicha rutina se debe al hecho de que la salida del Amstrad hacia 
la impresora consta de siete líneas en vez de ocho, lo cual hace 
que al enviar gráficos bits imagen deba hacerse por grupos de 
menos de ocho bits. 

La rutina ha sido diseñada por el autor en una impresora Epson- 
compatible, funcionando por ese motivo en casi todas Is impre¬ 
soras. Si tiene problemas, póngase en contacto con el autor, ya 
que algunas impresoras tienen ligeras diferencias en la forma de 
recibir los gráficos bit-imagen. 


1 REM *» VOLCADOR DE PANTALLAS * 

2 REM 

3 REM ***** JAUME MINGUELLA **** 
il REM 

3 REM «»»«»»**«»»»»»»*»«*«*»»»»* 

6 REM 

7 REM 

8 REM 

9 REM » Esta subrutlna sirve para pasar 

pantallas a una impresora compa¬ 
tible Epson® 

10 REM 

11 REM 

12 REM 

60000 m*&A000:RESTORE 60050:MEMORY m-l:F 
OR i=l TO 3:READ a$:l-LEN(at) 

60010 FOR u= 1 TO 1 STEP 2:vVAL("a"*MID 
í(a$,u,2)):POKE m,v:m=m+l 
60020 NEXT:NEXT:RETURN 

60050 DATA 0607FE0178C25ABB210700DD7E00F 
EO02803210E002268A63E00326AA621ftBO0DD7EO 
OFE00280123226BA6F3110000210000CDC9BBCD2 
8BD3E1BCD2BBD3EÜ1CD2BBD3E06CD2BBD3E0DCD2 
BBD218F013E 

60060 DATA 1BCD2BBD3A6BA6CD2BBD3E7FCD2BB 
D3E02CD2BBD1100000607E5DD2A6CA63EOODD770 
0E5D5C5CDF0BBC1D1E13FFEOO280137DDCBOO162 
B3A68A6FE0E 

60070 DATA 2OO12B1OE2E1DD7E0OCD2BBD133A6 
AA6FE002801137BFE8020C17AFE0220BC3EODCD2 
BBD3E0ACD2BBDCD09BBFE09C8FE20C8EDÜB68A63 
FEDl;27CFEFF2085FBC9 
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Éstos han sido los quince programas de utilidad que le hemos 
brindado. 

Si le han sido de utilidad o bien si usted ha aprendido algo más 
sobre programación, nuestro objetivo se habrá visto cumplido. 

No olvide, además, que usted, en función de sus necesidades 
particulares, puede modificar estos programas para adecuarlos a 
sus requerimientos y hacqr un uso personal de esas nuevas ver¬ 
siones. Los programas expuestos pretenden ser una guía gene¬ 
ral sobre la cual poder hacer fácilmente unas u otras va¬ 
riaciones. 

Finalmente citaremos que para aquellas personas que conside¬ 
ren los listados como excesivamente largos existe una cinta a su 
disposición, con los programas grabados. Si está interesado en 
ella, póngase en contacto con nosotros. 
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OTROS TITULOS DE EDITORIAL NORAY, S.A. 


ZX SPECTRUM 

ZX SPECTRUM - Qué es, para qué sirve y cómo se usa. 
ZX SPECTRUM - Aplicaciones prácticas para la casa 
y los pequeños negocios.(*) 

18 JUEGOS DINÁMICOS PARA TU ZX SPECTRUM. 
PROFUNDIZANDO EN EL ZX SPECTRUM. 

COMO CREAR TUS JUEGOS ZX SPECTRUM. 
PRONTUARIO DEL SPECTRUM. 

EL SPECTRUM Y LOS NIÑOS. 


COMMODORE 64 

COMMODORE 64 - Qué es, para qué sirve y cómo se usa. 
COMMODORE 64 - Aplicaciones prácticas para la casa 
y los pequeños negocios.!*) 

18 JUEGOS DINAMICOS PARA TU COMMODORE 64. 
PRONTUARIO DEL COMMODORE 64. 

EL COMMODORE 64 Y LOS NIÑOS. 


DRAGON 

DRAGON - Qué es, para qué sirve y cómo se usa. 

18 JUEGOS DINAMICOS PARA TU DRAGON. 



AMSTRAD 


EL AMSTRAD Y LOS NIÑOS. 
PRONTUARIO DEL AMSTRAD. 


MSX 

INTRODUCCION AL MSX 

18 JUEGOS DINAMICOS PARA TU DRAGON 


VARIOS 

DICCIONARIO DE MICROINFORMATICA 
MINI DICCIONARIO MICROINFORMATICO 
MICROORDENADORES Y CASSETTES 


(*) Los listados de estas obras están disponibles en cassettes. 






Barras televisión 
Gastos combustible 
Lotería primitiva 
Calendarios 
Gráficos 
IVA fácil 
Bankhouse 
Agenda mensual 
Agenda telefónica 
Órgano ! 
Generador de letras I 
Millones a gogó 
Volcador 
de pantallas 


Hasta la fecha, muchos utilizaban su AMS- 
TRAD para juegos y gráficos, pero ahora us¬ 
ted ya puede ponerse a trabajar aprovechán¬ 
dolo al máximo, gracias a la ayuda de esta 
gran colección de simples programas prácti 
eos presentados por J. Minguella y Editorial 
Noray. 

Si quiere sintonizar correctamente su pan¬ 
talla de TV tenemos el BARRAS DE TELEVI¬ 
SION; ante los problemas del IVA, EL IVA FA¬ 
CIL; para no faltar a su cita consulte la AGEN¬ 
DA SEMANAL, o controle sus cuentas banca- 
rias con el BANKHOUSE. 

Los 15 importantes programas que se expli¬ 
can en este libro le permitirán emplear su 
AMSTRAD de formas muy variadas y útiles 
para el hogar o el negocio. 

J. Minguella ha hecho un gran trabajo, gra¬ 
cias al cual podemos verdaderamente «PO¬ 
NER A TRABAJAR A NUESTRO AMSTRAD» 
tanto en casa como en el negocio. 

La gran ventaja de esta obra es que, ade¬ 
más de ofrecer unos programas sumamente 
útiles y prácticos, enseña cómo hacerlos fun¬ 
cionar y cómo se adaptan o varían según las 
necesidades de cada uno. 
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